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SUMMARY 


A FORTRAN IV computer program to calculate transient and steady-state tempera- 
tures, pressures, and flows in a cooled turbine blade or vane with an impingement in- 
sert has been developed and is described in this report. Coolant-side heat-transfer 
coefficients are calculated internally in the program, with the user specifying one of 
three modes of heat transfer at each station: (1) impingement, including the effect of 
crossflowj (2) forced-convection channel flow; or (3) forced convection over pin fins. 
Additionally, a limited capability to handle film cooling is available in the program . It 
is assumed that spent impingement air flows in a chordwlse direction and is discharged 
through a split or drilled trailing edge and through film-cooling holes. The program 
does not allow for radial flow of the spent impingement air. The use of film cooling is 
restricted by a numerical model requirement for a continuous coolant-channel flow. 

Input to the program includes a description of the blade geometry, cool ant- supply 
conditions, outside thermal boundary conditions, and wheel speed. The user can divide 
the blade by chordwise cuts into as many as 15 slices and can divide each slice into as 
many as 79 stations around the blade. Each station in turn consists of four calcula- 
tional nodes through the wall and one in the coolant channel . The blade wall can be two 
layers of different materials, such as a ceramic thermal-barrier coating over a me- 
tallic substrate. Program output includes the temperature at each node, the coolant 
pressures and flow rates, and the coolant-side heat-transfer coefficients. 


INTRODUCTION 

As core turbine- engine operating conditions become more severe, it becomes more 
difficult to effectively cool blades and vanes. Advanced transient thermal calculational 
techniques are needed to design reliable turbine blades. However, there appears to be 
no computer program generally available that uses these advanced techniques in com- 
bining the required heat-transfer and cool ant- flow-distribution calculations. Thus, it 
was decided to create a computer program that would perform both transient and 
steady-state heat- transfer and coolant-flow analyses for a cooled blade, given the out- 
side hot-gas boundary conditions, the coolant inlet pressure or flow rate, the geometry 
of the blade shell, and the cooling configuration. 

The resulting program, TACTl, can handle a turbine blade or vane that is equipped 
with a central coolant-plenum insert from which coolant air flows through holes to im- 
pinge on the inner surface of the blade shell or directly into the trailing-edge region. It 



is assumed that the spent impingement air then flows chordwise and is dumped through 
a split or drilled trailing edge and through film-cooling holes . The blade is modeled by 
dividing it by chordwise planes into as many as 15 slices, with each slice having as 
many as 79 calculational stations around the blade. Temperatures at each station are 
calculated for four points through the wall and one in the coolant channel. Included in 
this model is the capability to analyze a blade with a ceramic thermal -barrier coating. 
The ability of the program to model film cooling is limited by the numerical flow analy- 
sis requirement for a continuous coolant- channel flow. 

The TACTl program is used at the NASA Lewis Research Center on an IBM TSS/ 
360-67 computer. The source program consists of approximately 6000 lines of code 
and the program requires about 60 000 words of storage. Typical running times for the 
program are 1.4 seconds of central processor unit (CPU) time per calculational station 
for a steady-state run and 0.4 second of CPU time per station per time step for a tran- 
sient run. 

The TACTl program is reported in two parts . This report, part II, is a program- 
mers manual and includes a complete program listing and a detailed description of the 
procedure. Part I (ref. 1) is a users manual and contains all the information necessary 
to run the program; a detailed description of the input, the method of solution, and the 
output as well as a sample problem. 


OVERVIEW 
Method of Analysis 

The details of the analytical method are presented in part I (ref. 1) . The blade 
model used in the analysis is described briefly in this section. 

Blade geometric model . - The key to creating a usable computer program is to 
have as simple a geometric model as possible for the system being analyzed. In this 
program, the emphasis is on a blade or vane with a central coolant plenum and chord- 
wise flow of the coolant after impingement. Therefore, it was decided that the primary 
calculational direction would also be chordwise. The blade is divided into layers that 
are bounded by chordwise cuts through the blade, as shown in figure 1. Each slice is 
treated separately in the program, with radial heat conduction in the wall the only com- 
munication between layers . 

Figure 2 gives the details of the geometric model for a single blade slice and shows 
the breakdown of the blade or vane into calculational stations and nodes . Each calcula- 
tional station consists of five nodes; one at the wall outer surface, one at the interface 
between the coating and blade metal, one at a point midway through the wall metal, one 
at the wall inner surface, and one in the middle of the coolant channel. 
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For input to the program, the following basic elements of the geometry are needed 
for each station; (1) the thicknesses of the wall coating and wall metal and the coolant- 
channel width, (2) the distance of each node from the adjacent lower-numbered node, 
and (3) the radial span for this slice. In addition, depending on the mode of heat trans- 
fer specified, the user must supply impingement-hole diameter and spacing or pin-fin 
diameter and spacing. Thermal properties of the blade materials must also be speci- 
fied. The input is described in detail in reference 1. 

Numerical model . - The numerical solution for the temperatures throughout the 
blade involves writing a transient energy-balance equation for each node and forming a 
set of equations to be solved for the temperature distribution. Similarly, the coolant 
pressure distribution is determined by writing the transient momentum equation for 
flow between adjacent fluid nodes and solving the resulting set of equations for static 
pressures. 

The nodal energy balances are linearized, one-dimensional heat-conduction equa- 
tions at the wall outer-surface node, at the coating-metal interface, and at the wall 
inner-surface node. At the midmetal node, a linearized, three-dimensional, heat- 
conduction equation is used. In the coolant channel, energy and momentum equations 
for one-dimensional compressible flow including friction and heat transfer are written 
for the elemental channel length between two coolant nodes . The equations used are 
presented in reference 1. 


General Program Description 

The TACTl program is capable of performing a transient analysis as well as a 
steady-state analysis. In the case of a transient, the program first performs steady- 
state calculations to determine the initial conditions for the transient. 

Figure 3 shows a schematic of the TACTl calculational scheme. There are three 
basic, nested calculational loops that must converge for a steady- state solution to be 
reached. These loops are labeled A, B, and C in figure 3. The program begins a 
steady-state analysis with the coolant- supply pressure and total coolant flow fixed. The 
impingement flow is initially assumed to split uniformly at the leading-edge stagnation 
station, station 1. All coolant flows for the slice under consideration are calculated 
first, based on the current pressure distribution. The temperatures at each node are 
then calculated by solving simultaneously the energy equations presented in reference 1 . 
The pressures at each coolant node are calculated by solving simultaneously the momen- 
tum equations presented in reference 1. This cycle, loop A in figure 3, is repeated im- 
til the pressure distribution no longer changes. The flow split between suction- and 
pressure-side coolant channels is then checked by comparing the pressures at the ends 
of the two channels. If they do not match, the impingement flov/ split at the leading edge 
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is adjusted and the inner loop calculations are repeated. This adjustment comprises 
loop B in figure 3, Once the proper flow split is achieved, the program moves up the 
blade to the next slice and repeats this sequence. After all N slices have converged, 
the total coolant mass flow used is compared with the inlet coolant mass flow. If there 
is an imbalance, either the inlet flow or the supply pressure is adjusted, depending on 
which was specified in the input; and the calculations start over. This is loop C in fig- 
ure 3. Once the overall coolant mass flow balance is satisfied, the steady-state solu- 
tion is complete and the transient calculations begin. During a transient calculation, 
loop B is bypassed because the coolant flow-split is primarily a function of blade geom- 
etry. Loop C is also bypassed because the inlet coolant mass flow rate at a given time 
is estimated based on the coolant mass flow used at the previous time step and the 
change in supply pressure. 

The TACTl subprograms and the calling relations are shown in figure 4. Block 
data subprogram NGASDAT contains air properties, for use in TACTl, tabulated as 
functions of temperature at a pressure of 20 atmospheres from reference 2. This sub- 
program must be loaded before execution of the program. The main program, NTTACT, 
calls other subroutines in their proper order. 

The first call from NTTACT is to GETIN, a subroutine that controls the reading, 
storing, and printing of input data. Subroutine GETIN calls INPUT to print the input 
data if the user specifies INEDIT > 0. Subroutine INPRT has a call to PREP to put the 
input data in its proper form for use. All data are input by using a NAMELIST format. 

After the input data have been read, the number of time steps, NTYM, to be used in 
the transient is determined in NTTACT. If only a steady-state solution is to be calcu- 
lated, NTYM = 1 . Time-dependent boundary conditions are then evaluated, with the ini- 
tial entries assumed to be steady-state values. Then NTTACT loops through the blade, 
calling on subroutines PLNUM, PREP, and TCOEF for each slice. The first time 
through is a steady-state calculation. 

Subroutine PLNUM calculates the pressure distribution in the impingement plenum 
for the current slice, given the inlet pressure and coolant flow- rate. PLNUM calls 
GASTBL for gas properties. 

Subroutine PREP extracts the input data for the current slice from the input arrays. 

Subroutine TCOEF controls loop A in figure 3, the iterative calculations of temper- 
ature and pressure for the nodes of the current slice. Each iteration in TCOEF re- 
quires calls to subroutines FLOWS, HCOOL, THRCON, TARRAY, PARRAY, and 
GAUSS. 

Subroutine FLOWS computes the impingement jet flow rates, coolant- channel mass 
flow rates, and channel Mach numbers for each station around the blade, given the 
plenum pressure and temperature and the current pressure distribution in the coolant 
channel. FLOWS calls GASTBL for gas properties. 
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Subroutine HCOOL is called to calculate coolant heat-transfer coefficients for all 
the stations of this slice, based on the latest values of mass flow rate. HCOOL calls 
function HCFRCD to calculate forced-convection heat- transfer coefficients and GASTBL 
for gas properties. 

Subroutine THRCON determines the wall thermal conductivity from the input table 
of conductivity as a function of temperature. 

Subroutine TARRAY sets up the array of coefficients for the conduction and convec- 
tion equations for each node. Calls are made to HCPINS for pin- fin heat-transfer coef- 
ficients, to HCFRCD for forced-convection heat-transfer coefficients, and to GASTBL 
for gas properties, TCOEF calls subroutine GAUSS to solve the set of equations for the 
temperature at each node. 

Subroutine PARRAY sets up the array of coefficients for the momentum equations 
in the coolant channels and TCOEF calls subroutine GAUSS to solve the set of equations 
for the pressure at each coolant node. 

After a new set of temperatures and pressures has been determined, convergence 
is checked by using the coolant-channel pressure at the blade leading edge. If this 
pressure stays within a tolerance band for four successive iterations, convergence is 
accepted. Once convergence is achieved, TCOEF calls subroutine FLSPLT to check 
the coolant flow-split between the pressure and suction sides. This is loop B in fig- 
ure 3. Initially, the impingement jet flow at the forward stagnation station is assumed 
to split evenly between the suction- and pressure-side channels. If the coolant- channel 
pressures at the end of the impingement insert do not match, the flow split at the for- 
ward stagnation station is adjusted to increase the flow to the channel with the higher 
pressure at the end of the insert, and iteration loop A is repeated. Once a satisfactory 
flow split has been achieved, TCOEF calls subroutine WROUT to print the output for 
this slice and calls subroutine PLOTMF if there is to be graphical output. After 
NTTACT has calculated all blade slices, the total coolant mass flow is compared with 
the impingement-plenum inlet mass flow rate used to start the calculations. If the two 
flow rates are not close enough, the inlet mass flow or supply pressure is adjusted and 
the calculations are repeated. This is loop C in figure 3. 

When the initial steady- state solution has been completed, the transient calcula- 
tions are started. The transient is continued until the time reaches the specified maxi- 
mum. 

Subroutine PLOTMF makes use of a TSS/360 graphics package at the NASA Lewis 
Research Center to plot temperature and pressure distributions for the blade. 


DETAILED PROGRAM PROCEDURE 

Table I lists the names of each of the subprograms in TACTl, the corresponding 
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TSS/360 source module names, the COMMON blocks used in each, the names of the sub- 
routines called by each, and the names of subroutines calling each. Table n is a cross- 
reference listing of named COMMON blocks and the subprograms using them. This sec- 
tion gives a detailed description of each subprogram used in TACTl. All variable 
names used are defined in the section DICTIONARY. The BLOCK DATA subprogram 
and the MAIN PROGRAM are discussed first and then each subprogram is described, 
in alphabetical order. 


Block Data NGASDAT 

A BLOCK DATA subprogram, NGASDAT, is used to provide a table of gas proper- 
ties to the program. The properties are put in the array GS through a DATA state- 
ment with 5xNG entries, where NG is the number of table entries for each property. 

The first NG values are temperatures, the second are thermal conductivities, the third 
are specific heats, the fourth are Prandtl numbers, and the final NG values are viscos- 
ities. The property values included are taken from reference 2 at a pressure of 20 at- 
mospheres. 


Main Program NTT ACT 

The MAIN PROGRAM for TACTl, NTTACT, has overall control of the program. 
Figure 5 is a flow chart for NTTACT. During initialization, a call is made to a system 
subroutine, TIME, to get a unique label to be used to identify the plotted output for a 
given run. After the call to GETIN, where all the input data are read, NTTACT initi- 
ates the solution procedure by searching the transient boundary condition tables and 
using linear interpolation to extract the values for the current time. The next step is to 
begin the loop, labeled C in figure 3. The solution progresses from hub to tip. For 
each slice, NTTACT calls PLNUM to calculate coolant- supply conditions; PREP to ex- 
tract the input data from the input tables; and TCOEF to calculate flows, temperatures, 
and pressures. After the return from TCOEF, NTTACT updates the total amount of 
coolant used, WUSED, by adding the amount used in the current slice, WIM. The 
amount of coolant-plenum flow available for the remaining slices, WPLEN, is updated 
by subtracting WIM. After all slices have been done, the overall amount of coolant used 
is printed and then checked against the assumed coolant flow- rate. If the absolute value 
of the difference, EXCESW, is more than 1 percent of the assumed flow, the assumed 
flow or the supply pressure is adjusted and the calculations are repeated. For transient 
runs, after the initial steady-state coolant-flow balance, there are no more iterations on 
coolant flow. Instead the flow for a given time step is based on the actual flow used in 


6 


the preceding time step and on the ratio of supply pressure for the two steps . Finally 
once all loops have been completed, NTTACT calls PLOTMF to get a final summary 
plot of blade temperatures. 


Subroutine FLOWS 

Subroutine FLOWS is a routine to calculate the flow rates through all impingement 
and film- cooling holes, the friction factor in the coolant channels, and film-cooling ef- 
fectiveness. FLOWS makes use of the current impingement-plenum mean pressure and 
temperature and coolant-channel pressure and temperature distributions. The impinge- 
ment jet flow-rate, WJ, is calculated for each station in the forward region and checked 
against the choked flow- rate, WCR. If WJ is greater than WCR, then WJ is set equal to 
WCR, If there is any film cooling on the blade, the film-cooling flow rates in the for- 
ward region, WFC, are also calculated. Then, the coolant-channel flow rates, WCROS, 
are computed by considering a mass balance between stations, as illustrated in figure 6. 
Once the forward- region coolant flows have been determined, tiie Reynolds numbers - 
RE for the coolant channel, and REFC for the film-cooling flow - and the square of the 
coolant Mach number, AM2, are computed for each forward station. 

The next step is to calculate the amount of coolant, WDUMP, dumped directly into 
the trailing- edge region from the coolant plenum. Then the total amount of coolant used 
for this slice, WIM, is determined by summing the impingement jet flows and WDUMP. 
Following this, the flows in the tratling-edge region are computed, with the coolant flow 
being reduced by the amount of any film-cooling flow. Then, trailing-edge-region val- 
ues of RE, REFC, and AM2 are calculated. 

After all the coolant flow-rates are determined, the friction factor, FF, is calcu- 
lated at each station. Finally, if there is any film cooling used, the film effectiveness 
is calculated by using the method of reference 3. 


Subroutine FLSPLT 

Subroutine FLSPLT is used to determine the location of the stagnation impingement 
jet, station JS, and the fraction of that jet's flow that splits to each side of the blade, 
DEL TAN. Figure 7 is a detailed flow chart for subroutine FLSPLT. The primary var- 
iable carried into FLSPLT is the pressure-match parameter, EPSN, which is defined as 

EPSN = ^^»ISLICE,NFWD-1> - Pf2,ISLICE,NFWD» 

P(2, ISLICE, NFWD-1) 

where the pressures are as illustrated in figure 8. 
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The magnitude and sign of EPSN are used to determine the adjustment of the stag- 
nation impingement- jet row location and the fraction of that jet that splits to the suction- 
side channel. Initially, the stagnation jet row is located at station 1 and the split is 
DELTAN = 0.50. If EPSN is positive, DELTAN is set to 0.75 to increase the flow down 
the suction-side channel; if EPSN is negative, DELTAN is set to 0.25 to increase the 
flow down the pressure- side channel. For subsequent entries into FLSPLT, the value 
of DELTAN is adjusted by passing a straight line through the last two points on a plot of 
EPSN versus DELTAN and picking the value of DELTAN where this line crosses the 
axis at EPSN = 0. If this intercept falls outside the DELTAN range of 0 to 1, the stag- 
nation station, JS, must be moved to an adjacent station and DELTAN set to 0.50. Once 
a sign change is observed in EPSN, a fine-tuning process is triggered in FLSPLT. In 
this case, the values of DELTAN and EPSN for the iteration preceding the sign change 
are saved and used as one of the points of the straight-line interpolation scheme for all 
subsequent iterations. 


Subroutine GASTBL 

Subroutine GASTBL is used to interpolate in the array GS for gas properties, given 
the absolute temperature. Linear interpolation is used. 


Subroutine GAUSS 

Subroutine GAUSS is a routine that uses Gaussian elimination to solve a set of 
simultaneous equations. The array of coefficients, TCOF, is in the form of a com- 
pressed, augmented band matrix. That is, only the matrix elements within the band 
and the constants from the right side are stored in TCOF. The matrix band width, K, 
is determined by the node- numbering system used. In TACTl, the temperature calcu- 
lations require a band width of 23 elements, and the pressure calculations require 19. 


Subroutine GETIN 

Subroutine GETIN is a routine used to initialize input-data default values and to 
read and store input data. Input is in NAMELIST form as described in reference 1. 

The entire data set is read, and the input variables for each slice are stored in two 
arrays: INDCHN for integer data, and CHANL for real-number data. If the input is 
provided in SI units, subroutine GETIN converts it to U.S. customary units for internal 
use. If the user specifies INEDIT > 0, GETIN calls subroutine INPUT to print out the 
input data . 


8 


Function HCFRCD 


Function subprogram HCFRCD is a routine to calculate a turbulent, forced- 
convection heat-transfer coefficient for channel flow as described in reference 1. 


Subroutine HCOOL 

Subroutine HCOOL is a routine containing the correlations for impingement heat 
transfer. The first part of HCOOL deals with leading- edge- region impingement cooling. 
In this part, the inner surface length from the stagnation impingement jet to the end of 
the leading-edge impingement region is determined and then used in a correlation to 
compute the average heat-transfer coefficient in this region. Beyond this region, for 
stations starting at ICOR, calculations are done by using an impingement-with- 
crossflow correlation. 


Subroutine HCPINS 

Subroutine HCPINS is a routine to calculate coolant-side heat-transfer coefficients 
in regions of the blade equipped with pin fins . In addition, the effective heat-transfer 
area, which accounts for the pin surface area and the pin-fin effectiveness, is calcu- 
lated. 


Subroutine INPRT 

Subroutine INPRT is a routine to print a listing of the input data. Also, INPRT sets 
up the initial temperature distribution in the blade. Subroutine PREP is called for each 
slice to extract input data from the arrays INDCHN and CHANL. 


Subroutine PARRAY 

Subroutine PARRAY is a routine to set up the matrix to be solved for coolant- 
channel pressure distribution. The equations used are detailed in reference 1. 

The array of coefficients generated in PARRAY, TCOF, is in the form of a com- 
pressed, augmented band matrix. Coefficients that would be on the main diagonal of the 
full matrix are stored in column 10 of the TCOF array. The terms from the right side 
of the equations are stored in column 20 of TCOF. 
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Subroutine PLNUM 


Subroutine PLNUM is a routine to calculate the pressure and temperature distribu- 
tions in the central coolant plenum. The mean plenum static pressure and temperature 
for each slice are used as the supply conditions for the impingement jets. The total 
temperature and pressure at the outlet of one plenum slice are used as input for the next 
slice. 

There are five arguments used in the call statement for PLNUM: WXX is the mass 
flow rate into this plenum slice; PXX and TXX are the calculated, average static pres- 
sure and temperature; and PTEXIT and TTEXIT are total temperature and pressure, 
respectively. Going into the subroutine, PTEXIT and TTEXIT are the values at the en- 
trance to this slice. On return, they are the values at the exit of this slice. 


Subroutine PLOTMF 

Subroutine PLOTMF is a routine that plots TACTl output. PLOTMF makes use of 
a TSS/360 graphics package at the NASA Lewis Research Center. For an installation 
without this specific package, this subroutine would have to be revised or bypassed. 

PLOTMF plots temperature and pressure versus surface distance from station 1 
for each slice of the blade for a steady-state case. For transients, a set of two sum- 
mary plots is made for each time step: the plots contain temperatures for all slices on 
one graph. 


Subroutine PREP 

Subroutine PREP is a routine to extract input data from storage and put it in the 
form used in the calculations. In PREP, the hot-gas-side boundary condition tables are 
searched and linear interpolation is done to extract the boundary condition values at each 
calculation station at the given time . 


Subroutine TARRAY 

Subroutine TARRAY is a routine to set up the matrix to be solved for the tempera- 
tures in each slice. The equations used are detailed in reference 1. 

The array of coefficients generated in TARRAY, TCOF, is in the form of a com- 
pressed, augmented band matrix. The 12th column of TCOF contains the elements that 
would be on the main diagonal of a full matrix. The terms from the right side of the 
equations are stored in column 24. 


10 


Subroutine TCOEF 


Subroutine TCOEF is a routine that controls the calculations for flow rates, tem- 
peratures, and pressures. The first time TCOEF is entered for each slice an initial 
estimate of the coolant- channel pressure distribution is set up, TCOEF controls the 
iterations in loops A and B in figure 3. Loop A consists of calls to subroutines FLOWS, 
TARRAY, and PARRAY. The variable IVERGE is used to count the number of itera- 
tions in loop A. Convergence is checked by comparing the four most- recent values of 
coolant-channel pressure at the flow-split point. When the ratio of the maximum differ- 
ence among these four to the difference between coolant- supply pressure and trailing- 
edge exit pressure is less than PCNVRG, loop A is complete. Then the flow split at 
the stagnation impingement jet, JS, is checked by subroutine FLSPLT and adjusted if 
necessary. Loop B involves repeating loop A for a new flow split. The variable EDELT 
is used to count the number of flow- split iterations in loop B. Once flow- split conver- 
gence is achieved, WROUT is called to print the output for the current slice. 


Subroutine THRCON 

Subroutine THRCON is a routine that takes the wall temperatures and searches for 
the thermal conductivity values in the input tables. 


Subroutine WROUT 

Subroutine WROUT is a routine to control the printing of the output from TACTl. 
Output units are the same as the input data units. 


DICTIONARY 

All the important variable names used in the TACTl code are defined in this sec- 
tion. The only names not defined are locally used indices. All dimensioned variables 
include the dimensions. The dictionary also indicates the COMMON block or subroutine 
in which each variable is used. 
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Variable 

Common 

Subroutine 

Definition 

A (400) 

TCO 


cross-sectional area normal to chord- 

2 

wise direction, in , accessed by node 
number 

AA 


GETIN 

outer-surface length between stations, 
in. , used for calculating interpolated 
values of TDLX(2), TDLX(3), and 
TDLX(5) 

AA 


PLNUM 

coolant-plenum cross-sectional area, 

2 

in , used in plenum pressure-drop 
calculations 

AB 


PLNUM 

maximum Mach number in coolant 
plenum 

AC (5) 


GASTBL 

array of interpolated values of gas prop- 
erties 

ACH 


PLNUM 

coolant-plenum choked-flow indicator 

ADUMP 

TCO 


area of slot or jets dumping coolant di- 

2 

rectly into trailing-edge region, in 

ADUMPC 


INPRT 

2 

same as ADUMP, but converted to cm 
for input listing when input is in SI 
units 

AHG 


PREP 

intermediate value of hot-gas- side heat- 
transfer coefficient, Btu/hr • ft^ • °F, 
used for interpolating in input table 
during a transient 

AHTRNl 


TARRAY 

inner- surface area for heat-transfer 
purposes, in^ 

AHTTR 


HCPINS 

2 

total surface area in pin-fin channel, in 

AINTRV 


PLOTMF 

floating-point form of number of temper- 
ature intervals in summary plots 

AJ 


PLNUM 

floating-point form of indicator J - 1 

AJET(80) 

TCO 


total area of impingement jets at each 
station, in^ 
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Variable 

Common 

Subroutine 

Definition 

AJET(80) 


FLSPLT 

total area of impingement j ets at each 
2 

station, in , carried into subroutine 
as argument 

AKC(15,80) 

TCO 


wall outer-coating thermal conductivity, 
BtuAr . ft . °F 

AKCTBL(20) 

BOUND 


input table of wall outer-coating thermal 
conductivity, Btu/hr • ft • °F, versus 
temperature, °F 

AKW(15,80) 

TCO 


wall metal thermal conductivity, 
Btu/hr . ft • °F 

AKWTBL(20) 

BOUND 


input table of wall metal thermal conduc- 
tivity, Btu/hr • ft • °F, versus tem- 
perature, °F 

ALABL(7) 


PLOTMF 

array containing time and date label for 
identification of output plots 

ALPH(12) 


NTTACT 

alphameric array used to uniquely iden- 
tify output of each job 

ALPHA 

FRIC 


constant used in friction factor calcula- 
tions 

ALPH2(4) 


PLOTMF 

TCOEF 

NTTACT 

time and date information, generated in 
NTTACT and passed to plotting sub- 
routine as argument 

AM 


HCOOL 

exponent on Reynolds number in 

Kercher-Tabakoff impingement cor- 
relation 

AMC(20) 


PLNUM 

Mach number distribution in coolant 
plenum for a given slice 

AMCHOK 


FLOWS 

if any stations have a Mach number 
greater than 1.0, the value is saved in 
this variable and returned as an argu- 
ment, to be printed by TCOEF 

AMIN 


FLOWS 

HCPINS 

area of coolant-flow channel at a given 
station, reduced by pin-fin blockage 
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Variable 

Common 

Subroutine 

Definition 

AM2(80) 

TCO 


array containing square of coolant- 
channel Mach number at each station, 
for a given slice 

APG 


PREP 

intermediate value of hot-gas- side 
pressure, Ibf/in , used for inter- 
polating in input table during transient 

APLEN 


GETIN 

input value of coolant-plenum area for 
2 2 

given slice, cm (in ) 

APLN(15) 

RADL 


internal array to store plenum area for 
each slice, in^ 

API 


GASTBL 

interpolating factor in gas property table 
lookup 

AP2 


GASTBL 

1.0 - API 

AQG 


PREP 

intermediate value of hot-gas-side heat 
flux, Btu/hr • ft , used for inter- 
polating in input table during transient 

ASTG 


TCOEF 

inner-surface area under stagnation- 

2 

point impingement jet, in 

ATG 


PREP 

intermediate value of hot-gas-side tem- 
perature, ^R, used for interpolating in 
input table during transient 

ATMAXP 


PLOTMF 

adjusted maximum temperature, ^F, 
used as hi^ endpoint on output plots 

ATMINP 


PLOTMF 

adjusted minimum temperature, ^F, 
used as low endpoint on output plots 

ATYME 


PLOTMF 

value of time in transient, sec, used on 
output plots for identification 

AVRGA 


PARRAY 

area ratio used in momentum equation at 
entrance to trailing edge 

AT. 


PLNUM 

dummy variable, used as either 

diameter-area ratio or flow adjust- 
ment 
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Variable 

Common 

Subroutine 

Definition 

A1 


FLOWS 

interpolating factor in friction factor 
calculation in transitional Rejmolds 
number range 

A1 


TARRAY 

upstream half of inside-wall heat- 

2 

transfer area, in , associated with 
coolant-channel node 

A2 


FLOWS 

interpolating factor in friction factor 
calculation in transitional Reynolds 
number range 

A2 


TARRAY 

downstream half of inner surface heat- 

2 

transfer area, in , associated with 
coolant- channel node 

A3 


TARRAY 

same as Al, but on opposite wall, only 
used in trailing-edge region 

A4 


TARRAY 

same as A2, but on opposite wall, only 
used in trailing-edge region 

B 


GETIN 

ratio of length to thickness, used along 
with AA to calculate interpolated val- 
ues ofTDLX(2), TDLX(3), andTDLX(5) 

B(20) 


PLNUM 

spanwise static-temperature distribu- 
tion, °R, in coolant plenum for given 
slice 

BC 


GETIN 

NAMELIST name 

BCHGP(IOOO) 

BOUND 


input table of hot-gas, pres sure- side 

2 

heat-transfer coefficients, W/m . K 
(BtuAr ■ ft^ . °F) 

BCHGS(IOOO) 

BOUND 


input table of hot-gas, suction-side heat- 

2 

transfer coefficients, W/m . K 
(Btu/hr • ft^ • ^ F) 

BCPGP(1000) 

BOUND 


input table of hot-gas, pressure-side 
relative static pressure, kPa (Ibf/in ) 

BCPGS(IOOO) 

BOUND 


input table of hot-gas, suction-side 

2 

relative static pressure, kPa (Ibf/in ) 
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Variable 

Common 

Subroutine 

Definition 

BCQGP(1000) 

BOUND 


input table of hot-gas, pressure-side 
heat flux, W/m^ (Btu/hr • ft^) 

BCQGS(IOOO) 

BOUND 


input table of hot-gas, suction-side heat 
flux, W/m^ (Btu/hr • ft^) 

BCTGP(1000) 

BOUND 


input table of hot-gas, pressure-side 
temperature, K ^F) 

BCTGS(IOOO) 

BOUND 


input table of hot-gas, suction-side 
temperature, K (°F) 

BCTIME(50) 

BOUND 


input table of time at which transient in- 
put tables are specified, sec 

BCXP(400) 

BOUND 


input table of outer-surface, pressure- 
side locations at which hot-gas condi- 
tions are input, cm (in,) 

BCXS(400) 

BOUND 


input table of outer-surface, suction- 
side locations at which hot-gas condi- 
tions are input, cm ^n.) 

BES 


HCOOL 

equivalent slot width, in. , used in 

leading- edge impingement correlation 

BETA 

ERIC 


constant used in friction factor calcula- 
tions 

BETAl 


PLNUM 

square of pressure at inlet to coolant 

2 2 

plenum for given slice, (Ibf/in ) 

BETTA(20) 


PLNUM 

spanwise static-pressure distribution in 

2 

coolant plenum, Ibf/in 

BTA 

TCO 


indicates t5qje of hot-gas boundary con- 
dition 

C 


FLOWS 

GASTBL 

HCFRCD 

HCOOL 

HCPINS 

PLNUM 

TARRAY 

gas thermal conductivity, 
Btu/hr .ft . °F 
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Variable 

Common 

Subroutine 

CD 

TCO 


CDEN(2) 

UNITS 


CD1(200) 


NTT ACT 

CEXCSW 


NTTACT 

CGASC(2) 

UNITS 


CH(15) 


PLNUM 

CHANL(8000) 

SPECL 


CHANLS 


GETIN 

CHFLX(2) 

UNITS 


CHTC(2) 

UNITS 


CIMPl 

IMPCOR 


CIMP2 

CIMP3 

CIMP4 

CIMP5 

CIMP6 

CIMP7 

CINCH (2) 

UNITS 


CMSFL(2) 

UNITS 


CNUM(80) 

TCO 


CONDCT 


HCOOL 

CONTRL 


GETIN 

CP 

TCO 



Definition 

impingement-jet discharge coefficient 

conversion factor for density units 

dummy variable used to print selected 
intermediate temperature values 

amount of excess coolant flow, in SI 
units, kg/hr 

conversion factor for gas constant 
coolant-channel choking indicator 
array for storing input data 
NAMELIST name 

conversion factor for heat-flux units 

conversion factor for heat-transfer- 
coefficient imits 

user-supplied constants for general im 
pingement correlation 


conversion factor for length units 

conversion factor for mass flow rate 
units 

number of impingement jets at each sta^ 
tion for given slice 

coolant-air thermal conductivity, 

BtuAr ■ ft • °F 

NAMELIST name 

gas specific heat at constant pressure, 
Btu/lbm • °F 
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Variable 

Common 

Subroutine 

CPC(80) 

PRPS 



CPIM 


NTTACT 

PLOTMF 

CPM 


FLOWS 

CPO 

PRPS 


CPRSR(2) 

CRHOVG(2) 

UNITS 

UNITS 


CRITR 

CSPHT(2) 

CTCON(2) 

UNITS 

UNITS 

FLSPLT 

CTMPF(2) 

CTOG 

UNITS 

NTTACT 

CURV 


TARRAY 

CVISC(2) 

CWPLEN 

UNITS 

NTTACT 

CWUSED 


NTTACT 

CX 


PLNUM 


Definition 

coolant specific heat at constant pres- 
sure at each coolant node for given 
slice, Btu/lbm • °F evaluated at a 
mean temperature between bulk cool- 
ant temperature and wall temperature 

mean impingement-plenum pressure for 
given slice, in SI units, kPa 

hot-gas-stream specific heat at constant 
pressure, Btu/lbm • °F 

specific heat at constant pressure, 
Btu/lbm . °F, evaluated at 
impingement- jet supply temperature 

conversion factor for pressure units 

conversion factor for density x velocity 
units 

coolant flow-split convergence criterion 

conversion factor for specific-heat units 

conversion factor for thermal conduc- 
tivity units 

conversion factor for temperature units 

mean impingement-plenum static tem- 
perature for given slice, in SI units, K 

factor to account for wall curvature in 
heat-conduction equations 

conversion factor for viscosity units 

coolant-plenum flow rate at entrance to 
given slice, in SI units, kg/hr 

total amoimt of coolant air used, in SI 
units, kgAr 

function of isentropic exponent k, 

-(k + l)/[2(k - 1)] 
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Variable 

Common 

Subroutine 

Definition 

Cl 


PLNUM 

function of isentropic exponent k, 
2k/ <k - 1) 

C3 


PLNUM 

computed constant involving wheel speed 
and isentropic exponent 

C3 


FLOWS 

ratio of specific heats at constant pres- 
sure, coolant to hot gas 

C5 


PLNUM 

computed constant involving isentropic 
exponent and gas constant 

C6 


PLNUM 

function of isentropic exponent k, 
(k - l)/2 

C7 


PLNUM 

computed constant involving isentropic 
exponent and gas constant 

C8 


PLNUM 

computed constant involving isentropic 
exponent and gas constant 

D 


PLNUM 

convergence parameter in coolant- 
plenum pressure calculations 

DD 


PLNUM 

coolant-plenum hydraulic diameter, in 

DEH 


HCOOL 

hydraulic diameter of equivalent slot, 
in., used in leading-edge impingement 
correlation 

DELAST 


FLSPLT 

variable used to save flow- split fraction 
at which pressure-match parameter, 
EPSN, changes sign 

DELTA 

ERIC 


constant used in friction factor calcula- 
tion 

DELTAN(15) 


FLOWS 

FLSPLT 

HCPINS 

TARRAY 

TCOEF 

WROUT 

fraction of stagnation-point impingement- 
jet flow that splits to suction-side 
coolant-flow channel for each slice 

DELTAO 


FLSPLT 

value of DEL TAN from previous flow- 
split iteration 
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Variable 

Common 

Subroutine 

Definition 

DENOM 


NTTACT 

intermediate variable used in time inter- 
polation of some boundary conditions 

DH(80) 

TCO 


coolant-channel hydraulic diameter at 
each station, in. 

DHF(80) 

TCO 


effective diameter of film-cooling hole at 
each station, in. , defined as hydraulic 
diameter of one hole multiplied by 
square root of number of holes at 
station 

DHJ(80) 

TCO 


actual hydraulic diameter of an impinge- 
ment hole at each station, in. 

DHYD 


GETIN 

input value of coolant-plenum hydraulic 
diameter for a slice, cm (in. ) 

DIFN 


TCOEF 

pressure difference parameter used in 
checking convergence 

DIFO 


TCOEF 

maximum pressure difference parameter 
used in checking convergence 

DIFTOL 


PLNUM 

tolerance on coolant-plenum pressure- 
drop calculations 

DIMPl 

DIMP2 

DIMP3 

DIMP4 

DIMP5 

DIMP6 

IMPCOR 


user-supplied constants for leading-edge 
impingement correlation 

DLTAOP 


FLSPLT 

best value of DELTAN in the event of an 
unstable flow split 

DLTYME 

TRNSNT 


time step used in transient calculations, 
sec 

DLX(400) 

TCO 


chordwise distance from each node to 
adjacent upstream node, in. 

DP (80) 

PRPS 


diameter of pin fins at each station, in. 


20 



Variable 


Common Subroutine 


Definition 


DPLN(15) 

DR 

DR2 

DUMR1(80) 

DUMR2(80) 


DUMTER 


DUM1(10) 

DUM2(10) 

DUM3(10) 

DUM4(10) 

DUM5(10) 

DUM6(10) 

DUM7(10) 

DUM8(10) 

DUM9(10) 

DUM10(10) 

DUM11(10) 

DUM12(10) 

DUM13(10) 

DUM14(10) 

DUM15(10) 

DUM16(10) 


RADL 


PRPS 

PRPS 


PLNUM 

PLNUM 


PARRAY 


INPRT 

WROUT 

INPRT 

WROUT 

INPRT 


coolant-plenum hydraulic diameter for 
each slice, in, 

radial length increment in coolant- 
plenum calculations, in. 

2 

radial increment squared, in 

dummy variable, not currently used 

dummary variable, used to carry 
impingement- jet Reynolds number to 
output subroutine 

intermediate variable in momentum 
equation involving coolant dumped di- 
rectly into trailing edge 

dummy variables used to print input 
listings and program output 


If 


1 
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Variable 


Common Subroutine 


Definition 


DUM17(10) 

DUM18(10) 

DUM19(10) 

DUM20(10) 

DUM25(10) 

DUM52(10) 

DUM53(10) 

DUM55(10) 

DX 


DXTEMP 

DXl 

DXIO 


DX2 

DX3 


DX4 


DX5 


DX6 


INPRT dummy variables used to print input 

listings and program output 


PLNUM spanwise step size used in calculating 

coolant-plenum pressure and temper- 
ature distributions 


PLNUM 

TARRAY 

TARRAY 

TARRAY 

TARRAY 

TARRAY 


variable to temporarily hold DX 

path length between midwall node and 
adjacent upstream midwall node, in. 

path length between outer coating - wall 
junction node and adjacent downstream 
outer coating - wall junction node, in. 

path length between midwall node and 
adjacent downstream midwall node, in. 

path length between outer-surface node 
and adjacent upstream outer-surface 
node, in. 

path length between outer-surface node 
and adjacent downstream outer- 
surface node, in. 


TARRAY path length between inner-surface node 
and adjacent upstream inner-surface 
node, in. 

TARRAY path length between inner-surface node 
and adjacent downstream inner- 
surface node, in. 
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Variable 

Common Subroutine 

Definition 

DX7 

TARRAY 

path length between coolant node and 
adjacent upstream coolant node, in. 

DX9 

TARRAY 

path length between outer coating - wall 
junction node and adjacent upstream 
outer coating - wall junction node, in. 

D1 

PLNUM 

computed constant used in coolant- 
plenum pressure equations to account 
for effect of pumping due to wheel 
rotation 

D2 

PLNUM 

computed constant used in coolant- 
plenum temperature equations to 
account for effect of pumping due to 
wheel rotation 

E 

PLNUM 

factor used in adjusting convergence 
rate in coolant-plenum calculations 

EFAREA^O) 

Hcpms 

TARRAY 

effective area, in , for heat transfer at 
stations with pin fins, including pin- 
fin effectiveness for heat transfer 

EFTVNS 

HCPmS 

pin-fin effectiveness 

EMES(80) 

FLMCOL 

for film cooling, ratio of coolant mass 
flux to free-stream mass flux, multi- 
plied by equivalent slot width 

EML 

HCPINS 

term used in pin-fin effectiveness cal- 
culation 

ENDEFF 

TARRAY 

term in heat-transfer equations to ac- 
coxmt for convection to rear edge of 
blade when heat-transfer coefficients 
are input 

ENDFLX 

TARRAY 

term in heat-transfer equations to ac- 
count for convection to rear edge of 
blade when heat flux is input 

EPLAST 

FLSPLT 

variable used to save latest value of 
pres sure- match parameter, EPSN 
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Variable 

Common 

Subroutine 

Definition 

EPS 

FRIC 


constant used in friction factor calcu- 
lations 

EPSMIN 


FLSPLT 

minimum value attained by pressure- 
match parameter, EPSN, for unstable 
flow split 

EPSN 


FLSPLT 

TCOEF 

pressure-match parameter, defined as 
difference between suction- and 
pressure- side coolant-channel static 
pressures at end of insert, divided by 
suction-side coolant-channel static 
pressure 

EPSO 


FLSPLT 

old value of pressure-match parameter, 
EPSN 

ETAPRM 


FLOWS 

film-cooling effectiveness based on ratio 
of enthalpy differences 

EXCESW 


NTTACT 

amount of excess coolant flow, differ- 
ence between inlet flow and that 
actually used, Ibm/hr 

FACTOR 


TARRAY 

special variable to adjust amoimt of 
energy carried in by an impingement 
jet for case of a calculation station 
adjacent to flow-split station 

FF(80) 

TCO 


value of friction factor at each flow 
station 

FILM 


PARRAY 

term to account for momentum carried 
off by film-cooling air 

FILMW 


TARRAY 

total film-cooling flow from given cool- 
ant node 

FLMEFF(80) 

FLMCOL 


film-cooling effectiveness based on ratio 
of temperature differences 

FM 


GAUSS 

multiplying factor used in Gauss elimi- 
nation scheme 
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Variable 

Common 

Subroutine 

Definition 

FUNP 


PLNUM 

statement function to calculate pressure 
difference in coolant plenum 

FUNT 


PLNUM 

statement function to calculate tempera- 
ture difference in coolant plenum 

FI (20) 


PLNUM 

friction factor in coolant plenum 

GAM 

TCO 


ratio of specific heats 

GAMC(80) 

PRPS 


ratio of specific heats at each coolant- 
channel node 

GAMO 

PRPS 


ratio of specific heats at coolant- supply 
conditions 

GEO 


GETIN 

NAMELIST name 

GG 


HCOOL 

mass flux ratio, coolant crossflow to 
impingement- jet flow 

GI 


HCOOL 

momentum flux ratio, coolant crossflow 
to impingement- jet flow 

GMASS 


HCOOL 

mass flux from row of leading-edge im- 
pingement holes 

GS(200) 

GAAS 


table of gas properties 

Gl 


PLNUM 

computed constant in coolant-plenum 


calculations, involving flow rate, gas 
constant, and specific heat at constant 
pressure 


G2 


PLNUM 

computed constant in coolant-plenum 
calculations, involving flow rate and 
gas constant 

HEAR 


WROUT 

average coolant-side heat-transfer coe 

o 

ficient for given slice, W/m • K 
(Btu/hr . ft^ . °F) 

HC(80) 

TCO 


coolant- side heat- transfer coefficients 
at each station for given slice, 
Btu/hr . ft^ . °F 
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Variable 

Common 

Subroutine 

Definition 

HCAL (4) 


INPRT 

alphameric array containing labels iden- 
tifying type of coolant-side heat trans- 
fer 

HG(80) 

TCO 


hot-gas-side heat-transfer coefficient at 
each station for given slice, 

Btu/hr . ft^ . °F 

HSTGMX 


TCOEF 

maximum physically possible value of 
coolant heat-transfer coefficient under 
stagnation jet, Btu/hr . ft^ • 

HUBl 


TARRAY 

term in conduction equation to account 
for specified hub temperature 

HUBS 


TARRAY 

term in conduction equation to account 
for specified hub heat flux 

HX 


TARRAY 

multiplying factor on coolant heat- 
transfer coefficient, initialized to 1.0 
but may be changed dynamically 

HYCOS 


HCPINS 

hyperbolic cosine term 

HYSIN 


HCPINS 

hyperbolic sine term 

lADJIN 

SPECL 


input variable that indicates which 
coolant-plenum supply property is to 
be held fixed 

ICHK 


PARRAY 

indicates which side of blade a given sta- 
tion is on: 0 if suction side, 1 if pres- 
sure side 

ICHNL 


INPRT 

PREP 

slice number, carried through as argu- 
ment 

ICHOKE 


FLOWS 

PARRAY 

TCOEF 

number of station that shows choked 
coolant flow 

ICOMP 


TARRAY 

number of station adjacent to impinge- 
ment flow-split station in pressure- 
side direction 
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Variable 

Common 

Subroutine 

Definition 

ICOMS 


TARRAY 

number of station adjacent to impinge- 
ment flow-split station in suction-side 
direction 

ICONV 


FLSPLT 

TCOEF 

indicator for convergence of flow-split 
Iterations 

ICOR 

TCO 


station at which use of impingement- 
with-crossflow correlation is to begin 

roELT 


FLSPLT 

TCOEF 

WROUT 

counter of number of flow- split itera- 
tions performed 

roN 


PARRAY 

downstream node number for coolant- 
channel pressure calculations 

IDNS 


PARRAY 

downstream station number for coolant- 
channel pressure calculations 

rox 


PARRAY 

upstream node number for coolant- 
channel pressure calculations 

lEND 


GETIN 

last point in CHANL array occupied by 
data for given slice 

IFCP 


FLOWS 

indicator used in locating pressure-side 
film-cooling holes 

IFCS 


FLOWS 

indicator used in locating suction-side 
film-cooling holes 

IFILM 

TCO 


input indicator for film cooling 

IFLU 


PREP 

coolant-channel node number 

IFNL 


PARRAY 

number of coolant-channel nodes 

IFNL 


TCOEF 

total number of stations, minus 1 

IFSPLT 


FLOWS 

indicates in which direction film-cooling 
air flows from stagnation station 

IGG(80) 


HCOOL 

array containing node numbers at which 
ratio of coolant crossflow to 
impingement- jet flow is out of 
Kercher-Tabakoff correlation range 
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Variable 

Common 

Subroutine 

IGGC 


HCOOL 

IHC(80) 

TCO 


fflCT 


GETIN 

IHUB 

TCO 


n 


HCOOL 

HHCTZ 


GETIN 

ILEAD 


HCOOL 

IMS 


FLOWS 

INDCHN (2000) 

SPECL 


INEDIT 


GETIN 

INPRT 

INN 


PREP 

INSTRT 


GETIN 

INUM 


NTTACT 

INI 


PREP 

IPLOT 

SPECL 


IPRES 


WROUT 

IPRSMN 


WROUT 

IPRSMX 


WROUT 


Definition 

counts number of entries in IGG array 

indicates type of coolant-side heat trans- 
fer at each station for given slice 

input value of IHC for given station 

indicates type of boundary to be used at 
hub end of blade 

coolant-channel node number 

locates IHC array in overall array 
INDCHN 

last station in range of leading-edge im- 
pingement correlation 

location of film-cooling hole preceding 
current station 

array for storing integer input data 

input variable to control listing of input 
data 

location of IHC data in INDCHN array 

starting point for storage of integer data 
in INDCHN array for given slice 

number of stations on each side of blade 

location of end of group of single-valued 
variables in INDCHN array 

input indicator to control plotting options 

pressure-side, outer-surface node num- 
ber 

location of minimum outer-surface tem- 
perature on pressure side 

location of maximum outer-surface tem- 
perature on pressure side 
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Variable 


Common 


Subroutine 


Definition 


IRE (80) 


HCOOL 

IRL 


PARRAY 

ISBLOK 

TCO 


ISEN 


TARRAY 

ISENS 


FLOWS 

ISENS 


TARRAY 

ISLICE 

TCO 


ISTA 


GETDSf 

ISTAT 


WROUT 

ISTATD 


WROUT 

ISTB 


GETIN 

ISTRT 


HCOOL 

ISTRT 


TCOEF 

ISUCMN 


WROUT 

ISUCMX 


WROUT 

ISUCT 


WROUT 

ISUP 


TARRAY 

ISYM(5) 


PLOTMF 


list of station numbers at which 

impingement-jet Reynolds number is 
out of Kercher-Tabakoff correlation 
range 

coolant node number 

starting point in CHANL array of data 
for given slice 

indicates which side of blade station IS 
is on 

indicates which side of blade a given 
station is on 

indicates which side of blade a given 
trailing-edge region station is on 

current slice number 

input station number 

outer-surface node number for given 
station 

outer-surface node number immediately 
downstream of 1ST AT 

input station number 

station at which use of Kercher- 
Tabakoff correlation begins 

first station in trailing-edge region 

location of minimum outer-surface tem- 
perature on suction side 

location of maximum outer-surface tem- 
perature on suction side 

suction-side station number 

adjacent station, upstream of current 
station, IS 

data array containing plotting symbol 
codes 
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Variable 

Common 

Subroutine 

Definition 

ITDHFZ 


GETIN 

locates film-cooling-hole data in CHANL 
array for given slice 

ITDHJZ 


GETIN 

locates impingement-hole data in CHANL 
array for given slice 

ITDLXZ 


GETIN 

locates node spacing data in CHANL 
array for given slice 

ITDPZ 


GETIN 

locates pin-fin diameter data in CHANL 
array for given slice 

ITHKZ 


GETIN 

locates wall and channel thickness data 
in CHANL array for given slice 

mp 

TCO 


indicates t}^e of boundary to be used at 
tip end of blade 

ITRBG 


INPRT 

first station in trailing-edge region 

ITRBG 


WROUT 

first station in trailing-edge region 

ITREO 


WROUT 

last outside node at trailing edge 

ITRRZ 


GETIN 

locates radial position data in CHANL 
array for given slice 

rrspz 


GETIN 

locates pin-fin spacing data in CHANL 
array for given slice 

rrxNZ 


GETIN 

locates impingement-hole spacing data 
in CHANL array for given slice 

lUNrrs 

UNITS 


indicates system of units used for input 
data 

lUNSTB 


FLSPLT 

indicates whether flow split is stable or 
not 

lUP 


PARRAY 

upstream node number for coolant- 
channel pressure calcvilations 

lUPS 


PARRAY 

upstream station number for coolant- 
channel pressure calculations 

IVARS(12) 


PLOTMF 

array of integer plotting controls 

IVERGE 


TCOEF 

WROUT 

pressure iteration loop counter 
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Variable 

Common 

Subroutine 

Definition 

IWR 


GAUSS 

control on debugging output of coefficient 
matrix 

IWRITE 

SPECL 


input control on amount of printed output 

IXAX 


PLOTMF 

logical variable with value . TRUE . 

lYAX 


PLOTMF 

locical variable with value . FALSE. 

11 


PREP 

starting point in INDCHN array for inte- 
ger data for given slice, also used as 
starting point for nodal data in CHANL 
array for given slice 

13 


PREP 

starting point in CHANL array for sta- 
tion data 

JDIS 


FLOWS 

number of stations that impingement 
flow-split station is displaced from 
station 1 

JHCAL 


INPRT 

indicates type of heat transfer at given 
station 

JLSTM 


THRCON 

size of wall thermal conductivity tables 

JNUMS 


FLSPLT 

indicates whether previous call to 
FLSPLT resulted in unstable flow 
split 

JOUTRG 


FLSPLT 

indicates attempt to split more than 
100 percent of flow to one side 

JPIV 


GAUSS 

pivotal column in matrix to be reduced 

JS 


FLOWS 

FLSPLT 

HCOOL 

PARRAY 

TARRAY 

TCOEF 

WROUT 

station number at impingement flow- 
split point 
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Variable 

Common Subroutine 

Definition 

JSENS 

FLOWS 

indicates which side of blade impinge- 


GETIN 

FLSPLT 

PARRAY 

TARRAY 

TCOEF 

ment flow-split is on 

JSGNCH 

FLSPLT 

indicates whether a sign change has 
occurred in EPSN 

JSO(15) 

TCOEF 

array for saving converged-flow-split 
station number for each slice 

JSOLDS(25) 

FLSPLT 

array to keep track of stations checked 
as flow-split stations 

JTIMES 

FLSPLT 

indicates whether DELTAN is to be 
rough adjusted or fine tuned 

K 

GAUSS 

total bandwidth of matrix to be solved 

K 

NTTACT 

counter of number of overall coolant- 
flow iterations 

KSIG 

PLNUM 

coolant-plenum iteration counter 

L 

TARRAY 

THRCON 

midwall node number at given station 

LCOOL 

FLOWS 

coolant-channel node number at given 


HCFRCD 

HCOOL 

HCPINS 

TARRAY 

TCOEF 

WROUT 

station 

LCOOLP 

HCPINS 

inner-surfeice node across coolant- 


TARRAY 

channel from given station 

LCUP 

HCPINS 

coolant-channel node number upstream 


TARRAY 

of given station 

LCUPP 

TARRAY 

inner-surface node across coolant chan- 
nel and upstream of given station 
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Variable 

Common 

Subroutine 

Definition 

LCUPS 


TARRAY 

inner-surface node upstream of given 
station 

LDN 


TARRAY 

midwall node number downstream of 
given station 

LIN 


FLOWS 

HCFRCD 

HCOOL 

HCPINS 

TARRAY 

inner-surface node number at given 
station 

LJ 


INPRT 

TARRAY 

THRCON 

node nvunber at junction of outer coating 
and wall metal at given station 

LOUT 


TARRAY 

THRCON 

wall outer-surface node number at given 
station 

LSP 


PREP 

starting point in BCXP array of data for 
given slice 

LSS 


PREP 

starting point in BCXS array of data for 
given slice 

LUP 


TARRAY 

midwall node number upstream of given 
station 

MAORI 


PLNUM 

indicator to keep track of step-size 
change 

MDl 

SPECL 


indicator to control special condensed, 
on-line output 

MD2 

SPECL 


Indicator that job is complete and sum- 
mary plots are to be produced 

MD3 

SPECL 


plot coimter 

MNBC 


INPRT 

maximum of NBCS and NBCP 

N 


GAUSS 

number of rows in matrix to be solved 

NAG 


PLNUM 

indicator whether calculations have pro- 
gressed beyond initial station 
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Variable 

Common 

Subroutine 

Definition 

NBCP 

BOUND 


input number of boundary condition 
points on pressure side 

NBCS 

BOUND 


input number of boundary condition 
points on suction side 

NBFRP 


INPRT 

number of pressure-side boundary con- 
dition points preceding data for given 
slice at given time 

NBFRS 


INPRT 

number of suction-side boundary condi- 
tion points preceding data for given 
slice at given time 

NBLKSZ 

TCO 


size of data block in CHANL array for 
given slice 

NCC 


PLNUM 

loop counter 

NCHAR 


NTTACT 

number of characters in ALPH2 array 

NCOOL 


PLOTMF 

coolant node number 

NEND 


HCOOL 

end of region that uses leading-edge im- 
pingement correlation 

NFC 


FLOWS 

number of station containing film- 
cooling holes 

NFCSUP(80) 

FLMCOL 


array identifying node supplying film 
cooling to each downstream node 

NFLUID(200) 


INPRT 

array of coolant-channel node numbers 
for each station 

NFWD 

TCO 


number of stations in forward region 

NG 

GAAS 


number of temperature entries in gas 
property table, GS 

NGEO 


GETIN 

number of NAMELISTs /GEO/ to be 
read in 

NINTRV 


PLOTMF 

number of temperature intervals in sum- 
mary plots 

NIT 


TCOEF 

counter of number of overall coolant- 
flow iterations 
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Variable Common Subroutine 


NL 

INPRT 

NLBLS 

PLOTMF 

NMM 

PLOTMF 

NMW 

NTTACT 

NODM 

WROUT 

NODOUT 

GETIN 

NODSF 

FLOWS 

GETIN 

INPRT 

PREP 

FLSPLT 

PARRAY 

TARRAY 

TCOEF 

NODST 

GETIN 

INPRT 

PREP 

PARRAY 

TARRAY 

TCOEF 

NTTACT 

NODSTM 

INPRT 

NOS 

FLOWS 

INPRT 

WROUT 

PLOTMF 

NPRCP 

INPRT 

NPRCS 

INPRT 


Definition 
output line counter 

number of points at which symbols are to 
be plotted 

midwall node number 

outer-surface node number 

midwall node 

outer-surface node 

number of nodes in forward region 


total number of nodes for given slice 


total number of nodes minus 4 
outer-surface node number 

number of points in each pressure-side 
boundary condition array for times 
preceding current time 

number of points in each suction-side 
boundary condition array for times 
preceding current time 
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Variable 

Common 

Subroutine 

Definition 

NPRTP 


INPRT 

number of points in each pressure-side 
boundary condition array per time 
step 

NPRTS 


ESrPRT 

number of points in each suction-side 
boundary condition array per time 
step 

NPTS 


PLOTMF 

number of points on given plot 

NROW 


GAUSS 

number of matrix row to be displayed by 
debug output 

NSAVE 


TCOEF 

coolant node number just upstream of 
exit, location of TSAVE 

NSLICE 

TCO 


current slice number 

NSTA 

TCO 


niunber of stations per slice 

NSTAPS 


PLOTMF 

number of stations on each side of blade 

NSTNS 


PLNUM 

number of spanwise stations per slice in 
coolant plenum 

NTBC 


GETIN 

number of entries in input BCTIME 
array 

NTIMES 


INPRT 

number of entries in BCTIME array 

NTTG 


PREP 

NTTACT 

time step number 

NTYM 


NTTACT 

number of time steps in transient 

NUMS 


FLSPLT 

counter to force at least four attempts at 
a good flow split 

P<2,15,80) 

TCO 


pressure at each node, for two consecu- 

2 

tive time steps, Ibf/in 

PAVG 


FLOWS 

coolant-channel static pressure, Ibf/in , 
used in calculating impingement hole 
flow rates 

PEAR 


FLOWS 

pressure used in calculating square of 
coolant-channel Mach number 
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Variable 

Common 

Subroutine 

Definition 

PCNVRG 


TCOEF 

pressure-difference convergence cri- 
terion 

PD 


FLOWS 

GASTBL 

HCFRCD 

HCOOL 

HCPESrS 

PLNUM 

TARRAY 

Prandtl number 

PDTOG 


HCOOL 

Prandtl number based on coolant- supply 
temperature 

PEX(400) 

BOUND 


input array containing tables of static 
pressure at trailing-edge coolant ex- 
haust, Ibf/in^ 

PEXC 


ESrPRT 

static pressure at trailing-edge coolant 
exhaust in SI units, kPa, for given 
slice 

PEXIT(15) 

TCO 


static pressures at trailing-edge coolant 
exhaust for each slice at given time, 
Ibf/in^ 

PEXOLD(15) 


TCOEF 

saved value of exhaust static pressure, 

2 

Ibf/in , used in setting initial guess of 
pressure distribution for subsequent 
time step 

PEXTT 


PLNUM 

total pressure at exit of coolant plenum 

2 

for given slice, Ibf/in 

PG(80) 

FLMCOL 


array containing hot-gas-side static 
2 

pressure, Ibf/in , at each station 

PI 


HCOOL 

constant, 3.14159 

PIM 

TCO 


2 

impingement-supply pressure, Ibf/in 

PIMOLD(15) 


TCOEF 

saved value of impingement- supply pres- 
2 

sure, Ibf/in , for each slice 
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Variable 

Common 

Subroutine 

Definition 

PIN (15) 

RADL 


O 

coolant total pressure, Ibf/Tn , at en- 
trance to each slice 

PINS 


HCPINS 

TARRAY 

number of pin fins at given station 

PIVOT 


GAUSS 

main diagonal term of row of matrix be- 
ing solved 

PLEGN(5) 


PLOTMF 

alphameric array to label pressure-data 
plots 

PLTYME(2) 


PLOTMF 

alphameric variable to print transient 
time on each plot 

POLD(15,80) 


TCOEF 

saved values of coolant-channel pres- 

9 

sure, Ibf/in , from previous iteration 

PP 


PLNUM 

intermediate pressure term 

PPLEN 


NTT ACT 

2 

impingement-supply pressure, Ibf/in 

PROD 


HCOOL 

intermediate calculation result 

PROPS 

■ 

GETIN 

NAMELIST name 

PSAV(5) 


TCOEF 

array to save last four values of pres- 
sure at flow-split station, used to 
check convergence 

PTEMP 


PLNUM 

intermediate pressure term 

PTEXIT 


PLNUM 

2 

coolant-plenum total pressure, Ibf/in : 
entrance value going into subroutine, 
exit value coming out 

PTIN 


NTTACT 

coolant-supply pressure for a givem 
time, Ibf/in^ 

PTIO(50) 

BOUND 


input array of coolant- supply pressure, 
kPa (Ibf/in ), as function of time, sec 

PTIOC 


ENPRT 

initial coolant-supply pressure in SI 
units, kPa 

PTNOLD 


NTTACT 

2 

previous value of PTIN, Ibf/in 

PTl 


PLNUM 

calculated coolant-plenum inlet total 

2 

pressure, Ibf/in 
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Variable 

Common 

Subroutine 

Definition 

PUMP (80) 

TCO 


term to account for coolant pumping due 
to wheel rotation 

PUMTRM 


PARRAY 

term to account for coolant pumping due 
to wheel rotation 

PXX 


PLNUM 

average static pressure, Ibf/in^, in 
coolant plenum for given slice 

QG(80) 

TCO 


hot-gas heat flux to blade at each sta- 
tion, Btu/hr • ft^ 

QHUB(80) 

BOUND 


heat flux conducted to blade wall from 
hub platform at each station, 

Btu/hr • ft^ 

QHUBIN(400) 

BOUND 


input table of hub heat flux at each sta- 

2 

tion as function of time, W/m 
(BtuAr • ft^) 

QSNK(80) 

TCO 


term to account for heat removal from 
wall by film-cooling flow through wall 

QTIP^O) 

BOUND 


heat flux from blade wall at tip for each 

2 

station, Btu/hr • ft 

QTIPIN(400) 

BOUND 


input table of tip heat flux at each sta- 

2 

tion as function of time, W/m 
(Btu/hr . ft^) 

R 

TCO 


gas constant; value for air is build in, 
53.35 ft-lbf/lbm • °R 

RATIO 


THRCON 

interpolating fraction 

RCHRD 


TARRAY 

dimensionless ratio of time increment to 
chordwise length increment squared at 
each station 

RCHRDM 


TARRAY 

maximiun value of RCHRD for a given 
slice 

RCVRY 


TARRAY 

recovery factor 

RE (80) 

PRPS 


coolant-channel Reynolds number at each 
station 
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Variable 

Common 

Subroutine 

Definition 

REFC(80) 

FLMCOL 


film-cooling flow Reynolds number at 
each station 

REJ(80) 


HCOOL 

impingement-jet Reynolds number at 
each station 

REJOVR(80) 


HCOOL 

array to save values of Impingement- jet 
Reynolds number that are out of range 
of correlation 

REY 


PLNUM 

coolant-plenum Reynolds number based 
on hydraulic diameter 

RHOBAR 


TARRAY 

q 

mean density in coolant channel, Ibm/in 

RHOC 

TRNSNT 


q 

input density of outer coating, kg/m 
(Ibm/ft^) 

RHOM 

TRNSNT 


q 

input density of wall metal, kg/m 
(Ibm/ft^) 

RHOVG(400) 

BOUND 


input table of hot-gas-side, free-stream 
mass velocity at each station as func- 
tion of time, kg/m • sec 
(Ibm/ft^ • sec) 

RHOVGA(80) 

FLMCOL 


hot-gas-side, free-stream mass velocity 
at each station for given slice, 

Ibm/ft^ • sec 

RI 


GETIN 

input value of radial location of coolant- 
plenum inlet for given slice, cm (in.) 

RIN(15) 

RADL 


table of RI values for each slice, in. 

RO 


GETIN 

input value of radial location of coolant- 
plenum exit for given slice, cm (in.) 

ROINVC 


HCOOL 

intermediate term in impingement corre- 
lation, ft^/lbm 

ROINVJ 


HCOOL 

intermediate term in impingement corre- 
lation, ft^/lbm 

ROOT 


PARRAY 

intermediate term in pressure calcula- 


tions 
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Variable 

Common 

Subroutine 

ROUT (15) 

RADL 


RR(80) 

TCO 


RRP 


PLNUM 

RTEMP 


PLNUM 

RTNARR(2) 


PLOTMF 

RTRNV 


TARRAY 

RTRNVM 


TARRAY 

S(15) 

TCO 


SEGMTS 


PLNUM 

SIGB 


PLNUM 

SIGC 


PLNUM 

SIGMA (20) 


PLNUM 

SLEGN(5) 


PLOTMF 

SLP 


Hcpms 

SP(80) 

PRPS 


SPAN 

TCO 


SPANG 


INPRT 

SPHTC 

TRNSNT 


SPHTM 

TRNSNT 



Definition 

table of RO values for each slice, in. 

mean radial location of each station for 
a given slice 

radial location, in. 

radial location, in. 

array containing maximum and minimiun 
values of plot variables 

dimensionless ratio of time increment to 
through-the-wall length increment 
squared 

maximum value of RTRNV for given 
slice 

span of each slice, in. 

niunber of segments in coolant plenum 
for given slice 

dummy variable used in cool ant- plenum 
calculations 

dummy variable used in coolant-plenum 
calculations 

coolant velocity distribution in coolant 
plenum 

alphameric array to label suction-side 
plots 

mean pin-fin length at given station, in. 

pin- fin spacing at each station, in. 

radial span of given slice, in. 

radial span of given slice in SI units, cm 

input specific heat of outer coating, 

J/kg • K (Btu/lbm • °F) 

input specific heat of wall metal, 

J/kg . K (BtuAbm . °F) 
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Variable 

Common 

Subroutine 

Definition 

ST 


HCOOL 

Stanton number calculated from user- 
supplied impingement correlation 

STANMX 


HCOOL 

Stanton number calculated from leading- 
edge impingement correlation 

SV(3) 


PLNUM 

array to save values of SIGC 

SYMBL(10) 


PLOTMF 

array of integers to be used as plot 
symbols 

SYMBOL 


PLOTMF 

particular entry from SYMBL array 

T(2,15,400) 

TCO 


calculated temperature at each node for 
each slice for two time steps, ®F 

TABOVE 


TARRAY 

midwall temperature at given station in 
slice above current slice, °F 

TAU(400) 

TCO 


array of thickness values, in. 

TBAR 


FLOWS 

coolant temperature, ®R, used to calcu- 
late Mach number 

TBAR 


HCPESrS 

ratio of temperature drops in pin fins. 


pressure-side wall temperature minus 
mid-coolant-channel temperature to 
suction-side wall temperature minus 
mid-coolant-channel temperature 


TBAR 


WROUT 

mean outer-surfe.ce temperature for 
given slice, ®F 

TBARMD 


WROUT 

mean midwall temperature, °F 

TBELOW 


TARRAY 

midwall temperature at given station in 
slice below current slice, °F 

TBULK 


WROUT 

overall blade bulk-metal temperature, 
°F 

TC 


THRCON 

mean temperature of blade cladding ma- 
terial, °F 

TCIN 


NTTACT 

coolant temperature, °F 

TCOF(400,30) 

MATRX 


array of coefficients to be solved for 
temperature or pressure 
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Variable 

Common 

Subroutine 

Definition 

TDHF 


GETIN 

function of film-cooling-hole size and 
spacing 

TDHJ 


GETIN 

hydraulic diameter of impingement hole 

TDLX(5) 


GETIN 

array containing lengths from nodes at 
upstream station to corresponding 
nodes at current station 

TDP 


GETIN 

input pin-fin diameter, cm (in.) 

TEM 


INPRT 

coolant-inlet absolute temperature, 
K (°R) 

TEPS 

TRNSNT 



factor used to define time mean proper- 
ties 

TERM 


FLSPLT 

adjustment to flow-split parameter 

TG(80) 

TCO 



hot-gas reference temperature at each 
station for given slice, °R 

THETAl 


TARRAY 

intermediate terms 
equations 

in nodal energy 

THETA2 






THETAS 






THETA4 






THETAS 






THETA6 






THETAS 






THETA9 




1 

f 

THK(3) 


GETIN 

input array of thickness values, cm ^n.) 

THUB(80) 

BOUND 



specified temperature at each blade hub 
station for given time, °F 

THUBIN(400) 

BOUND 



input table of hub temperatures at each 
station as function of time, K (°F) 

T1KLE(30) 


GETIN 

blank alphameric array used to initialize 
title array 
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Variable 

Common 

Subroutine 

TIN (15) 

RADL 


TIPI 


TARRAY 

TIPS 


TARRAY 

TITL 


GETEST 

TITLE (30) 

SPECL 


TLABL1(21) 

TLABL2(9) 


PLOTMF 

TMAXP 


PLOTMF 

TMAXS 


PLOTMF 

TMFRAC 


PREP 

TMINP 


PLOTMF 

TMINS 


PLOTMF 

TMP 


GASTBL 

TMPl 


GASTBL 

TOTSPN 


WROUT 

TP 


PLNUM 

TPLEN 


NTTACT 

TPM(500) 


PLOTMF 

TPMAX 


WROUT 


Definition 

inlet total temperature in coolant plenum 
for each slice, °F 

term in conduction equation to accpimt 
for specified tip temperature 

term in conduction equation to accoimt 
for specified tip heat flux 

NAMELIST name 

alphameric array of title information 
from input 

alphameric arrays used to put input title 
on plots 

maximum pressure-side temperature to 
be plotted 

maximum suction-side temperature to 
be plotted 

time-interpolating function 

minimum pressure-side temperature to 
be plotted 

minimum suction-side temperature to be 
plotted 

temperature used to determine gas prop- 
erties, °R 

temperature used to determine gas prop- 
erties, °F 

total span of blade, in, 

intermediate temperature variable 

mean impingement-plenum static tem- 
perature, °F 

table of pressure-side, midwall temper- 
atures for summary plots, K ^F) 

maximum pressure-side, outer-surface 
temperature for given slice, K ^F) 
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Variable 

Ckjmmon Subroutine 

Definition 

TPMIN 

WROUT 

minimum pressure-side, outer-surface 
temperature for given slice, K (°F) 

TPO(500) 

PLOTMF 

table of pressure-side, outer-surface 
temperatures for summary plots, 
K(°F) 

TREDGE 

TARRAY 

intermediate term in nodal energy equa- 
tion in trailing- edge region 

TREPS 

PARRAY 

TARRAY 

same as TEPS 

TRR 

GETIN 

input mean radial location of given sta- 
tion, cm ^n.) 

TRTRM 

PARRAY 

intermediate transient term in pressure 
equations 

TRTRMC 

TARRAY 

intermediate transient term involving 
outer coating 

TRTRMG 

TARRAY 

intermediate transient term involving 
coolant 

TRTRMJ 

TARRAY 

intermediate transient term for coolant 
channel at entrance to trailing edge 

TSAVE 

TCOEF 

temperature in coolant channel, just up- 
stream of exit 

TSM(500) 

PLOTMF 

table of suction-side, midwall tempera- 
ture for summary plots, K ^F) 

TSMAX 

WROUT 

maximum suction-side, outer-surface 
temperature for given slice, K ^F) 

TSMIN 

WROUT 

minimum suction-side, outer-surface 
temperature for given slice, K (°F) 

TSO(500) 

PLOTMF 

table of suction-side, outer-surface 
temperatures for summary plots, 
K (°F) 

TSP 

GETIN 

input pin-fin spacing, cm (in. ) 

TTEMP 

PLNUM 

variable to save temperature value, °R 
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Variable 

Common 

Subroutine 

TTEXIT 


PLNUM 

TTIN 


NTTACT 

TTIO(50) 

BOUND 


TTIP(80) 

BOUND 


TTIPIN(400) 

BOUND 


TTOTC(80) 


TCOEF 

TTX 


PLNUM 

TTYME 


WROUT 

TT1(20) 


PLNUM 

TW 


THRCON 

TXN 


GETIN 

TXX 


PLNUM 

TYME 

TRNSNT 


TYMMAX 

TRNSNT 


TOG 

TCO 


T1 


PLNUM 

UA(2) 


INPRT 


Definition 

coolant total temperature in plenum, °F 

coolant-supply temperature, °F, at en- 
trance to coolant plenum for given 
time 

input table of coolant-supply tempera- 
ture, K (°F), as function of time 

table of blade tip temperature, °F, for 
given time 

input table of blade tip temperature, 

K ^F), as function of time 

coolant total temperature at each sta- 
tion for given slice, °F 

coolant total temperature at inlet to 
coolant plenum for given slice, °R 

current time in transient, sec 

total-temperature distribution, °F, in 
coolant plenum 

midwall temperature for evaluating 
thermal conductivity 

input spanwise spacing of impingement 
jets at given station, cm (in.) 

average static temperature in coolant 
plenum for given slice, °F 

time in transient calculations, sec 

maximum time to which transient is car- 
ried, sec 

impingement- jet temperature for given 
slice, °R 

inlet total temperature in coolant plenum 
for given slice, °R 

alphameric array containing area units 
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Variable 

Common 

Subroutine 

Definition 

UI.(2) 


mPRT 

alphameric array containing length units 

V 


TCOEF 

factor to accelerate convergence of pres- 
sure iterations 

VARIB(15) 


PLOTMF 

alphameric array containing some plot 
labels 

VARS(12) 


PLOTMF 

array containing plotting controls 

VDP 


Hcpms 

pin-fin diameter at given station, in. 

VOLBAR 


TARRAY 

coolant-channel volume element at en- 

3 

trance to trailing-edge region, in 

VSP 


HCPINS 

pin- fin spacing at given station, in. 

VI 


PLNUM 

intermediate term in coolant-plenum cal- 
culations 

W(15) 

RADL 


coolant flow- rate at entrance to each 
slice, Ibm/hr 

WC 


HCOOL 

absolute value of coolant flow- rate, 
Ibm/sec 

WCHK(80) 

CHKHOL 


alphameric variable used to indicate 
choked flow in impingement jets 

WCHKDM 

CHKHOL 


alphameric variable used to indicate 
choked flow in holes dumping coolant 
to trailing-edge region 

WCHOKE 


PLNUM 

coolant flow-rate at entrance to given 
slice, Ibm/hr 

WCR 


FLOWS 

critical flow-rate, Ibm/sec 

WCROS(2, 15,80) 

TCO 


coolant- channel crossflow rate at each 
station for each slice for two time 
steps, Ibm/sec 

WDUMP 

TCO 


rate of coolant flow being dumped di- 
rectly from plenum to trailing-edge 
region, Ibm/sec 

WFC(80) 

TCO 


film-cooling flow rate at each station for 
given slice, Ibm/sec 


47 



Variable 

Common 

Subroutine 

Definition 

WFCDUM 


FLOWS 

intermediate variable in film-cooling 
flow rate calculation 

WFCDUM 


PARRAY 

total film-cooling flow rate at given sta- 
tion, Ibm/sec 

WIM 

TCO 


total impingement-jet flow rate for given 
slice, Ibm/sec 

WJ(15,80) 

TCO 


impingement- jet flow rate for each sta- 
tion for each slice, Ibm/sec 

WPLEN 

BOUND 


input initial guess at total coolant flow, 
kg/hr (Ibm/hr) 

WPLENC 


mPRT 

total coolant flow in SI units, kg/hr 

WPLENO 


NTTACT 

variable to save previous estimate of 
total coolant flow, Ibm/hr 

WS 

RADL 


rotor speed at given time, rpm 

WSVST(50) 

BOUND 


input table of rotor speed, rpm, versus 
time, sec 

WUSED 


NTTACT 

cumulative amount of coolant used, up to 
current slice, Ibm/hr 

WXCP 


TARRAY 

coolant flow-rate times specific-heat 
term 

WXX 


PLNUM 

coolant flow-rate at entrance to given 
slice, Ibm/hr 

X(80) 


TCOEF 

coolant-channel node locations, in. , 


used to set initial pressure distribu- 
tion 


XBAR 

FLOWS 

term in film-cooling effectiveness cor- 
relation 

XCC 

INPRT 

coolant-channel distance from station 1 
to given station, cm (in.) 

XDUM 

FLOWS 

dummy variable used to save location of 
film-cooling hole 
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Variable 

Common 

Subroutine 

Definition 

XFC^O) 

FLMCOL 


distance from station with film-cooling 
holes to downstream stations without 
film-cooling holes, in. 

XIS 


INPRT 

inside- wall surface distance from sta- 
tion 1 to given station 

XJN 


INPRT 

distance along junction of cladding and 
wall metal from station 1 to given 
station, cm (in.) 

XK(4) 


PLNUM 

pressure change in coolant plenum 

XL 


HCOOL 

length of inner surface used in leading- 
edge impingement correlation, in. 

XL (4) 


PLNUM 

temperature change in coolant plenum 

XLABL(29) 


PLOTMF 

alphameric array of plot labels 

XLABL2(15) 


PLOTMF 

alphameric array of plot labels 

XLBL(20) 


PLOTMF 

array of x-coordinates to be plotted as 
slice numbers 

XMM 


INPRT 

midwall distance from station 1 to given 
station, cm ^n. ) 

XMU 


FLOWS 

GASTBL 

HCFRCD 

HCOOL 

HCPINS 

PLNUM 

TARRAY 

viscosity, Ibm/ft . hr 

XMUC(80) 

FLMCOL 


coolant viscosity, Ibm/ft • hr, at each 
station, evaluated at mean tempera- 
ture between inner-wall surface and 
bulk coolant temperatures 

XMUM 


FLOWS 

hot-gas viscosity, Ibm/ft • hr 

XMUTOG 


HCOOL 

coolant viscosity based on coolant-supply 
temperature, Ibm/ft • hr 
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Variable 

Common Subroutine 

Definition 

XN(80) 

TCO 

spanwise spacing of impingement holes 
at each station, in. 

XNN 

PLNUM 

factor for increasing number of stations 
in coolant plenum 

XOD 

PREP 

ratio of impingement-hole spacing to 
hydraulic diameter, at given station 

XOS 

INPRT 

wall outer-surface distance from sta- 
tion 1 to given station, cm (in.) 

XOVERD 

HCOOL 

ratio of impingement-hole spacing to 
hydraulic diameter, at given station 

XOVRL 

HCPINS 

location of zero temperature gradient in 
pin fins 

XP 

HCOOL 

length of pressure-side inner-wall sur- 
face in leading-edge impingement 
region 

XP(80) 

PLOTMF 

pressure-side, dimensionless distance 
along midwall plane from station 1 to 
each station 

XP 

PREP 

distance of given pressure-side station 
from station 1, in. 

XPF 

PREP 

interpolating fraction in BCXP table 

XPL 

PLOTMF 

overall length along pressure-side, 
midwall plane, cm (in.) 

xs 

HCOOL 

length of suction-side, inner-wall sur- 
face in leading-edge impingement 
region 

XS(80) 

PLOTMF 

suction-side, dimensionless distance 
along midwall plane from station 1 to 
each station 

XS 

PREP 

distance of given suction-side station 
from station 1, in. 

XSF 

PREP 

interpolating function in BCXS table 


50 


Variable 

Common Subroutine 

Definition 

XSL 

PLOTMF 

overall length along suction-side, mid- 
wall plane, cm (in. ) 

XTEST 

PLNUM 

convergence test variable 

XTOT 

WROUT 

overall outer-surface length around 
blade, in. 

XTOTMD 

WROUT 

overall midhvall length aroxmd blade, in. 

XXN 

PLNUM 

number of spanwise stations per slice in 
coolant plenum 

Y(320) 

PLOTMF 

array containing temperature values to 
be plotted 

YCNVUU 

TARRAY 

indicates forced-convection heat trans- 
fer at last forward-region station on 
pressure side 

YCONV 

TARRAY 

indicates forced-convection heat transfer 
at given station 

YCONVU 

TARRAY 

Indicates forced-convection heat transfer 
at station immediately upstream of 
given station 

YFINS 

TARRAY 

indicates pin-fin heat transfer at given 
station 

YFINSU 

TARRAY 

indicates pin-fin heat transfer at station 
immediately upstream of given station 

YFNSUU 

TARRAY 

indicates pin-fin heat transfer at last 
forward-region station on pressure 
side 

YIMP 

TARRAY 

indicates impingement heat transfer at 
given station 

YIMPU 

TARRAY 

indicates impingement heat transfer at 
station immediately upstream of given 
station 

YIMPUU 

TARRAY 

indicates impingement heat transfer at 
last forward- region station on pres- 
sure side 
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Variable 

Common 

Subroutine 

YLABL(7) 


PLOTMF 

YLABL2(11) 


PLOTMF 

YLBL(20) 


PLOTMF 

YMAX 


PLOTMF 

YMIN 


PLOTMF 

YPLABL(10) 


PLOTMF 

YTEM(80) 


PLOTMF 

ZED 


PLNUM 

ZOVERD 


HCOOL 

Zl(15) 


PLNUM 

Z3 


PLNUM 

Z4 


PLNUM 


Definition 

alphameric array for labeling plots 

alphameric array for labeling plots 

array of coordinates of points to be 
plotted as slice numbers 

maximum value of y-coordinates on plot 

minimum value of y-coordinates on plot 

alphameric array for labeling plots 

array to be plotted 

coolant-plenum pressure-drop param- 
eter for given slice 

ratio of coolant-channel width to 

impingement-hole hydraulic diameter 

coolant-plenum pressure-drop param- 
eter for each slice 

intermediate term involving coolant flow 
intermediate term involving coolant flow 
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PROGRAM LISTING 


c- 

c 

r* 

c 

c 

c 

c 


— SOURCE. NTIACT THIS IS THE MAIN PROGRAM. BLOCK DATA SUBPROGRAM 

GASDAT MUST BE LOADED FIRST. 


C 

C 


C 

c 

c 

c 

c 

c 


TRANSIENT THERMAL 


ANALYSIS OF A COOLED TURBINE BLADE 

♦ * 3(r 

TACT1 


COMMON /BOUND/ 


BCXS(400) ^ 
BCTGS (1000) , 
BCPGS (1000) 
QHUBIN (400) , 
QTIPIN (4C0) , 
BCTIME(50)^ 
HSVST (50) r 


BCXP (400) , 
BCTGP(IOOO) , 
BCPGP (1000) ^ 
QHUB (30) , 
QTIP (80) , 
TTIO (50) , 
AKCTBL(20) , 


BCHGS(IOOO) , 
BCQGS (1000)^ 
THUBIN (400) , 
TTIPIN(400), 
RHOVG(400) , 
PTIO(50) , 
AKWTBL (20) , 


BCHGP (1000) , 
BCQGP (1000) , 
THUB(80) , 
TTIP (80) , 

PEX (400) , 
NPLEN, 

NBCS^ NBCP 


COMMON /FLMCOL/ RHOVGA(80), 
Z XMUC(80), 

COMMON /GAAS/ GS (200) , NG 


PG(80), XFC(80), FLMEFF (80) 

EMES(80)^ REFC(80)^ NFCSUP (80) 


COMMON /RADL/ APLN(15), DPLN(15), RIN(15), ROUT(15), 

Z PIN(15), TIN(15), W(15)r WS 

COMMON /SPECL/ CHANL (8000) , TITLE (30)^ IN DCHN (200 0 ) ^ 


z 

IPLOT, 

MDL MD2, 

MD3, lADJIN, IWEIIE 

COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 

Z 

GAM, 

PIM, 


SPAN, TOG 

z 

WDUMP, 

HIM, 

AKC(15,80), AKH(15,80), 

z 

A (400) , 

AJET(80) , 

AM2 (80) , 

CNOH(80) , 

z 

DH (80) , 

DHP (80) r 

DHJ (80) , 


z 

DLX (400) , 

FF (80) , 

HC(80) , 

HG(80) . 

z 

P(2, 15,80) 

,PEXIT(15) , 

P0MP(80) 

, QG(80), 

z 

QSNK (80) , 

RR (80) , 

S (15) i 

T (2, 15,400) , 

z 

TG(80) , 

TAU (400) , 

WFC (80) , 


z 

WJ (15,80) , 

HCBOS (2,15 

»80) , 

XN (80) , 

z 

ICOE, 

IFILM, 

IHOB, 

ITIP, 

z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE, 

z 

NFHC, 

NSTA, 

IHC (80) 


COMMON 

/TRNSNT/ EHOC, 

RHOM, 

SPHTC, 

SPHTM, 

Z 

DLTYME, 

TYME, 

TEPS, 

TYMMAX 

COMMON 

/UNITS/ CINCH (2) 

, CHTC(2) , 

CHFLX(2) , 

CPRSE(2), CHSFL(2) 

z 

CTMPF (2) 

, CTCON(2) , 

COEN (2) , 

CSPHT(2), CGASC(2) 

z 

CVI3C (2) 

, CRH0VG(2) 

,I0NITS 



DIMENSION DP(80)^ SP(80), ALPH(12)^ ALPH2(4)^ CDl (200) 

TTIO = TOTAL TEMPERATURE OF BLADE COOLING AIR AT INLET 
»PLEN = ESTIMATE OF COOLANT FLOW RATE - USED AS FIRST GUESS 
PTIO = TOTAL PRESSURE OF BLADE COOLING AIR AT INLET 
PEX = EXTERNAL GAS STREAM STATIC PRESSURE AT TRAILING EDGE 

DATA ALPH/> THI*,*S JO«,*B WA*»»S ST • , * ^RTE • , AT*, 

Z * *,* *,*,ON *,* *,* *,* V 

DATA NCHAR/16/ 

MD1 = 0 
MD2 = 0 


NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
N TTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 
NTTACT- 


-0001 

-0002 

-0003 

-0004 

-0005 

-0006 

-0007 

-0008 

-0009 

-0010 

-0011 

-0012 

-0013 

-0014 

-0015 

-0016 

-0017 

-0018 

-0019 

-0020 

-0021 

-0022 

-0023 

-0024 

-0025 

-0026 

-0027 

-0028 

-0029 

-0030 

-0031 

-0032 

-0033 

-0034 

-0035 

-0036 

-0037 

-0038 

-0039 

-0040 

-0041 

-0042 

-0043 

-0044 

-0045 

-0046 

-0047 

-0048 

-0049 

-0050 

-0051 

-0052 

-0053 

-0054 

-0055 

-0056 

-0057 

-0058 

-0059 

-0060 
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TYHE = -1.0 


NTTACT — 0061 


DLTYME =0.0 


NTTACT — 0062 

c 



NTTACT — 0063 

c 

TO GET AN ABBREVIATED OUTPUT OF MID-WALL 

TEMPERATURES AT THE 

TERHINALNTTACT — 0064 

c 

FOR EACH SLICE^ ENTER: 


NTTACT — 0065 

C AT TACT.50;SET TACT. M01=1 


NTTACT--0066 

c 



NTTACT — 0067 


MD3 = 0 


NTTACT — 0068 


K = 1 


NTTACT — 0C69 

c 



NTTACT — 0070 

c 

RECORD STARTING TIME, TO BE USED TO IDENTIFY MICROFILM PLOTS 

NTTACT — 0071 

c 



BTTACT--0072 


CALL TIME(NCHAR,ALPH2) 


NTTACT--0073 


ALPH(7) = ALPH2(3) 


NTTACT — 0074 


ALPH (8) = ALPH2 (4) 


NTTACT--0075 


ALPH(IO) = ALPH2(1) 


NTTACT — 0076 


ALPH (11) = ALPH2 (2) 


NTTACT--0077 


WRITE(6,425) (ALPH(I) ,1=1, 12) 


NTTACT — 0078 


WRITE(8,425) (ALPH (I) ,1=1,12) 


NTTACT— 0079 

c 



NTTACT — 0080 

c 

READ IN DATA 


NTTACT--0081 

c 



NTTACT — 0082 


CALL GETIN (IWRITE^TYMMA X^WSVST,! ADJIN) 


NTTACT — 0083 

c 



NTTACT — 0084 

c 

WRITE TITLE PAGE 


NTTACT — 0085 

c 



NTTACT— 0086 


WRITE (6,400) 


NTTACT — 0087 


WRITE(6,425) (ALPH (I) ,1=1,12) 


NTTACT — 0088 


HRITE(6,43C) (TITLE(I) ,1=1, 30) 


NTTACT — 0089 

400 

P0RMAT(1H1 ,//////, SOX, •**♦** OUTPUT *****•,/////) 

NTTACT — 0090 

425 

FORMAT (/36X,12A4) 


NTTACT — 0091 

430 

FORMAT(//1X,30A4) 


NTTACT — 0092 

C 



NTTACT-- 00S3 


TTIN = TTIO(1) 


NTTACT — 0094 


PTIN = PTIO(1) 


NTTACT — 00S5 

440 

HFLENO = WPLEN 


NTTACT — 0096 


PTNOLD = PTIN 


NTTACT — 0097 


PTIO(1) = PTIN 


NTTACT — 0098 


TYME =0.0 


NTTACT — 0099 


NTYM = 1 


NTTACT — 0100 


IF (DLTYME. GT.O.) NTYM = TYMMAX/DLT YME 

+ 1 

NTTACT — 0101 


NODST = 5*NSTA 


NTTACT — 0102 

C 



NTTACT— 0103 

C 



NTTACT — 0104 

C STABT MARCHING 


NTTACT — 0105 

C 



NTTACT — 0106 


DO 1100 ITYH = 1,NTYM 


NTTACT — 0107 


ITYME = ITYM-1 


NTTACT — 0108 


NTTG = ITYM 


NTTACT--0109 


TYME = ITYME^DLTYHE 


NTTACT — 0110 


IF (ITYM.EQ.1) TYME = -1. 


NTTACT— 0111 

C 



NTTACT — 0112 

C 



NTTACT— 0113 

C 



NTTACT — 0114 

C — 

EVALOATE TIME DEPENDENT BOONDAPY CONDITIONS 

NTTACT — 0115 

C 

- 


NTTACT — 0116 

C 



NTTACT — 0117 


PTIN = PTIO(1) 


NTTACT— 0118 


IF (TYHE. LT. 0.0) GO TO 490 


NTTACT— 0119 

c 



NTTACT — 0120 
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C-- 

c 


450 

455 


LOCATE COOLANT SOPPLT PRESSURE FOE TIBE 

DO 450 I = 4,50,2 
PTIN = PTIO (1-3) 

IF (PTIO(I) .LE.0.0) GO TO 460 
IPTIO = 1-1 

IF {TIBE. LE. PTIO (I) .AND. TIME. GT. PTIO (1-2) ) GO TO 455 
CONTINUE 

DENOM = PTIO (IPTIO*1) -PTIO (IPTIO-1) 

IF (DENOM. GT.O.) PTIN = PTIO (IPTIO-2) + 

Z (PTIO (IPTIO) -PTIO (IPTIO-2) ) *(TIBE-PTIO (IPTIO-1) ) /DENOM 


NTT ACT — 0121 
NTTACT— 0122 
NTT ACT — 0123 
NTTACT — 0124 
NTTACT — 0125 
NTTACT — 0126 
NTTACT — 0127 
NTTACT — 0128 
NTTACT — 0129 
NTTACT — 0130 
NTTACT — 0131 


460 CONTINUE 
C 

C — LOCATE COOLANT SUPPLY TEMPERATURE FOR TIME 
C 

DO 470 I = 4,50,2 
TTIN = TTIO(I-3) 

IF (TTIO(I) .LE.0.0) GO TO 490 
ITTIO = 1-1 

IF (TYME.LE.TTIO (I) . AND.TIME.GT.TTIO (1-2) ) GO TO 475 
470 CONTINUE 

475 DENOM = TTIO (ITTIO+1) -TTIO (ITTIO-1) 

IF (DENOM. GT. 0.) TTIN = TTIO ( ITTIO-2) + 

Z (TTIO (ITTIO) -TTIO (ITTIO-2) )♦ (TIHE-TTIO ( ITTIO- 1) ) /DENOM 

490 CONTINUE 
C 

C LOCATE THE VALUE OF THE WHEEL SPEED FOR THE CURRENT TIME. 

C 

HS = HSVST (1) 

IF (TIME. LE.0.0) GO TO 530 
DO 510 I = 4,50,2 
WS = HSVST (1-3) 

IF (HSVST (I) . LE.0.0) GO TO 530 

las = 1-1 

IF (TIME. LE .WSVST(I) .AND. TIME. GT. HSVST (1-2) ) GO TO 520 
510 CONTINUE 

520 DEKOM = HSVST(IHS+1) - HSVST(IHS-I) 

IF (DENOM. GT. 0.0) HS = HSVST (IHS-2) + 

Z (HSVST (IHS) -HSVST (IHS-2) ) * (TYME-HSVST (I HS-1 ) ) /DENOM 

530 CONTINUE 
C 
C 

C LOCATE THE VALUE FOB PEXIT, GAS STATIC PRESSURE AT EXIT OF BLADE, 

C FOB THE CURRENT TIME AND ALL SLICES. 

C 

IF (TIME. GT. 0.0) GO TO 533 
DO 532 I = 1,NSLICE 
PEXIT (I) = PEX (I) 

IF (PEX (I) .LE.0.0) PEXIT(I) =PEX(1) 

532 CONTINUE 

533 CONTINUE 

IF (BCTIME (2) .LE.0.0) GO TO 545 
DO 535 I = 2,50 
IPEX = 1-1 

IF (TIME. LE.BCTIME(I) .AND. TIME. GT.BCTIME(I-I) ) GO TO 540 
535 CONTINUE 

540 DENOM = BCTIME (IPEX+ 1 ) - BCTIME(IPEX) 

IF (DENOM. EQ. 0.0) GO TO 545 

TYMFBC = (TIME - BCTIME (IPEX) ) /DENOM 

DO 542 I = 1,NSLICE 


NTTACT — 0132 
NTTACT — 0133 
NTTACT — 0134 
NTTACT — 0135 
NTTACT— 0136 
NTTACT — 0137 
NTTACT — 0138 
NTTACT — 0139 
NTTACT — 0140 
NTTACT — 0141 
NTTACT — 0142 
NTTACT — 0143 
NTTACT — 0144 
NTTACT — 0145 
NTTACT — 0146 
NTTACT — 0147 
NTTACT — 0148 
NTTACT — 0149 
NTTACT — 0150 
NTTACT — 0151 
NTTACT — 0152 
NTTACT— 0153 
NTTACT — 0154 
NTTACT— 0155 
NTTACT — 0156 
NTTACT — 0157 
NTTACT— 0158 
NTTACT — 0159 
NTTACT--0160 
NTTACT — 0161 
NTT ACT — 0162 
NTTACT — 0163 
NTTACT — 0164 
NTTACT — 0165 
NTTACT — 0166 
NTTACT — 0167 
NTTACT— 0168 
NTTACT — 0169 
NTTACT — 0170 
NTTACT — 0171 
NTTACT — 0172 
NTTACT— 0173 
NTTACT— 0174 
NTTACT — 0175 
NTTACT — 0176 
NTTACT— 0177 
NTTACT— 0178 
NTTACT — 0179 
NTTACT — 0180 
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non non 



1C = (IPEX-1) *NSLICE ♦ I 

PEXIT(I) = PEX(IC) + {PEX(IC+NSLICE)-PEX(IC))*TYBFBC 

542 CONTINUE 

IF (IFILB.NE. 2) GO TO 545 
C 

C — SET INTEEP0L4TED VALUES OF FREE STREAM RHO*V FOR THIS TIME 
C 

DO 543 I = 1,NSTA 

IRO = (IPEX-1) *NSTA + I 

IRN = IPEX*NSTA + I 

543 RHOVGA(I) =RHOVG(IRO) + TTMFRC* (RHOVG (IRN) -BHOVG (IRO) ) 

C 

C 

545 CONTINUE 

C 

C 

C-- SET TIME INTERPOLATED VALUES OF 3HUB OR THUB AND QTIP OB TTIP. 

IF (BCTIME (2) .LE.0.0) GO TO 555 

DO 550 1=1, NSTA 

IQO = (IPEX-1) *NSTA + I 

IQN = IPEX*NSTA + I 

IF (IHDB.EQ.1) THUB(I) = THUBIN(IQO) + 

Z TYMFRC* (THUBIN(IQN)-THUBIN(IQO)) 

IF {IHOB.EQ.3) QHUB(I) = QHOBIN (IQO) + 

Z TYMFRC* (QHUBIN (IQN) -QHOBIN (IQO) ) 

IF (ITIP.EQ.1) TTIP(I) = TTIPIN(IQO) ♦ 

Z TYMFRC* (TTIPIN (IQN) -TTIPIN (IQO) ) 

IF (ITIP.EQ.3) QTIP(I) = QTIPIN(IQO) + 

Z TYMFBC* (QTIPIN(IQN)-QTIPIN(IQO)) 

550 CONTINUE 
GO TO 565 
C 

555 CONTINUE 

DO 560 I = 1,NSTA 

IF (IHUB.EQ.1) THUB(I) = THUBIN(I) 

IF (IHUB.EQ.3) QHUB(T) = QHUBIN(I) 

IF (ITIP.EQ.1) TTIP(I) = TTIPIN(l) 

IF (ITIP.EQ.3) QTIP (I) = QTIPIS (I) 

560 CONTINUE 
C 

565 TCIN = TTIN 

IF (ITYM.GT.1) HPLEN = WUSED+PTI N/PT NOLD 
570 HPLENO = HPLEN 
PTNOLD = PTIN 
HOSED = 0.0 

CALCULATE TEMPERATURE AND PRESSURES FOE EACH SLICE OF THE BLADE 

DO 1000 I = 1,NSLICE 
ISLICE = I 

FIRST DETERMINE IMPINGEMENT PLENUM CONDITIONS 

CALL PLNUM (HPLEN, PPLEN, PTIN ,TPLEN, TCIN) 

TOG = TPLEN + 460. 

PIM = PPLEN 

IF (lUNITS. EQ. 1) GO TO 860 
HRITE(6,e00) I, PIM, TOG 
800 FOEMAT(1H2//10X,100('*')//30X,*THE IMPINGEMENT PLENUM CONDITIONS* 

Z • FOE SLICE NO. ',12,' ARE; *//60X,*PIM = *,F7.2, 


NTTACT— 0181 
NTTACT — 0182 
NTTACT--0183 
NTTACT— 0184 
NTTACT — 0185 
NTTACT— 0186 
NTTACT — 0187 
NTTACT — 0188 
NTTACT — 0189 
NTTACT — 0190 
NTTACT— 0191 
NTTACT — 0192 
NTTACT — 0193 
NTTACT — 0194 
NTTACT — 0195 
NTTACT--0196 
NTTACT — 0197 
NTTACT — 0198 
NTTACT — 0199 
NTTACT— 0200 
NTTACT — 0201 
NTTACT — 0202 
NTTACT-- 0203 
NTTACT--0204 
NTTACT — 0205 
NTTACT — 0206 
NTTACT — 0207 
NTTACT — 0208 
NTTACT — 0209 
NTTACT--C210 
NTTACT--0211 
NTTACT — 0212 
NTTACT--0213 
NTTACT — 0214 
NTTACT--C215 
NTTACT — 0216 
NTTACT--0217 
NTTACT — 0218 
NTTACT--0219 
NTTACT — 0220 
NTTACT — 0221 
NTTACT--0222 
NTTACT— 0223 
NTTACT — 0224 
NTTACT— 0225 
NTTACT — 0226 
NTTACT — 0227 
NTTACT — 0228 
NTTACT — 0229 
NTTACT--0230 
NTTACT — 0231 
NTTACT— 0232 
NTTACT — 0233 
NTTAC T — 0234 
NTTACT — 0235 
NTTACT — 0236 
NTTACT — 0237 
NTTACT--C238 
NTTACT-- 0239 
NTTACT — 0240 
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c 

^50 

c 

860 

870 


880 

C 

C 

c 

c 


Z • PSIA^ V/60X, 'TOG = »^F7.2^* DEG. E V/1 0 X ^ 1 00 ( • ♦ • ) ) 

IF (I.EQ.1) WRITE(6^850) WPLEN 

F0PMAT(1H ,//30X, 'CENTRAL PLENUM FLOW IS LBM/HR',//) 

GO TO 890 

CTOG = TOG/1.8 
CPIM = PIM/CPRSR(1) 

WRITE (6,87 0) I, C FI M, CTOG 

FORMAT (1H2//10X, 100(»>^^')//30X, 'THE IMPINGEMENT PLENUM CONDITIONS' 
Z ' FOR SLICE NO. ',12,* ARE: V/60X,'PIM = ',F7.2, 

Z « KPA, '//60X,'T0G= ',^7.2,' K '//10X, 100 ( •♦ ' ) ) 

CWPLEN = WPLEN/CMSFL ( 1) 

IF (I.EQ.1) WBITE(6,880) CWPLEN 

F0FMAT(1H ,//30X, 'CENTRAL PLENUM FLOW IS ',F6.1,' KG/HR',//) 
CONTINUE 

THEN COMPUTE TEMPERATURES AND PRESSURES 
CALL PREP(I,NTTG) 

CALL TCOEF ( I W RI TE , WS , K , I PLOT , ALPH2) 

IF (IPLOT.GT.O) CALL PLOTMF (ALPH2) 

IF (MDl . EQ. 0) GO TO 975 

THIS BLOCK PRINTS SPECIAL CONDENSED OUTPUT TO THE TERMINAL IF MDl > 0 
IC1 = C 

DO 955 II = 1,NSTA,2 
Id = Id + 1 
NMW = 5*11 - 4 

001(101) = T(2,T,NMW) - 460. 

DO 960 II = 2,NSTA,2 
IC1 = Id + 1 
NMW = 5*11-4 

CD1(IC1) - T(2,I,NMW) - 460. 

WRITE(8,962) I,K 

FORMAT (/' BLADE SLICE *,I2,', OVERALL FLOW LOOP ',12, 

Z *, SURFACE TEMPERATURE, (F), STARTING AT LEADING EDGE'/) 

INUM = NSTA/2 + 1 
WRITE (8, 9 64) (C D 1 ( 1 1 ) , 1 1 = 1 , IN UM) 

FORMAT(' PRESSURE S I DE ' / 10 ( 2 X ,F7 . 1 ) ) 

TNUM = INUM + 1 

WRITE (6,96 6) C D 1 ( 1 ) , (CD 1 (I I ) , 11= I NU M , NS T A) 

FORMAT (//• SUCTION SIDE '/I 0 (2X,F7. 1) ) 


95 f 


^32 


96i> 


9tr 

c 

97d 

C 


;;c r* 

KOO 

C 


CONTINUE 

:heck how much plenum flow is left 

WUSED = WUSED + 3600. *WIM 
EXCESW = WPLEN - 3600. +WIM 

IF (EXCESW. GT. 0. .AND. I. LT. NSLICE) WPLEN = EXCESW 
l^ (EXCESW. LT. 0. . AND. I. LT. NSLICE) WRITE (6,9 85) I 
FORMAT(/' RAN OUT OF MASS FLOW IN BRANCH NO. • , I2) 
CONTINUE 
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NTTACT- 

NTTACT 

NTTACT- 

NTTACT' 

NTTACT 

NTTACT- 

NTTACT' 

NTTACT- 

NTTACT- 

NTTACT 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT' 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT' 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT 

NTTACT- 

NTTACT- 

NTTACT- 

NTTACT- 


-0241 

-0242 

-0243 

-0244 

-0245 

-0246 

-0247 

-0248 

-0249 

-0250 

-0251 

-0252 

-0253 

-0254 

-0255 

-0256 

-0257 

-0258 

-0259 

-0260 

-0261 

-0262 

-0263 

-0264 

-0265 

-0266 

-0267 

-0268 

-0269 

-0270 

-0271 

-0272 

-0273 

-0274 

-0275 

-0276 

-0277 

-0278 

-0279 

-0280 

-0281 

-0282 

-0283 

-0284 

-0285 

-0286 

-0287 

-0288 

-0289 

-0290 

-0291 

-0292 

-0293 

-0294 

-0295 

-0296 

-0297 

-0298 

-0299 

-0300 
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IF (lONITS. EQ.2) HEIT2 ( 6 , 10 10) WOSED 
1010 FORMAT {/30X,' AMOUNT OF COOLANT ACTUALLY USLD AT THIS TIME* 
2 • STEP IS 'ffe.l,' LBM/HE') 

CHUSED = HUSED/CMSFL(1) 

IF (IUNITS.EQ.1) HRITE(6,1011) CHUSED 

FORMAT (/30X, 'AMOUNT OF COOLANT ACTUALLY USED AT THIS TIME* 
Z • STEP IS ',F6.1,' KG/HE') 


1011 

C 


1020 

1040 

C 

C > 

c 

c 


DO 1040 I = 1,NSLICE 
DO 1020 J = 1,NODST 
T(1,I,J) = T(2,I,J) 

DO 1040 J = 1,NSTA 
P (1,ISLICE,J) = P(2,ISLICE, J) 

IF (TIME. GT. 0.0) GO TO 1100 

ADJUST COOLANT FLOH AND RECALCULATE TEMPERATURES, ETC. FOR 
STATE CASE OR TIME =0.0 

EXCESS = HPLENO - HUSED 

IF (ABS (EXCESH) ,LT. . 01*HPLENO) GO TO 1100 
IF (lADJIN.GT.O) GO TO 1050 
C 

C > NORMAL ADJUSTMENT IS ON HPLEN 

C 

HPLEN = HPLENO - .995*EXCESH 
K = K + 1 
PTIN = PTNOLD 
TCIN = TTIN 
GO TO 570 
C 

C > SPECIAL CASE, FOE lADJPT > 0, ADJUSTMENT IS ON PTIN 

C 

1050 PTIN = PEXIT(1) ♦ (PTNOLD-PEXir (1) ) * (HPLENO/HUSED) **1. 6 
HPLEN = HPLENO 
TCIN = TTIN 
K = K + 1 
GO TO 570 


C 

1100 

C 

C 


CONTINUE 


NTTACT--C301 
NTTACT— 03C2 
NTT ACT— 0303 
NTTACT — 0304 
NTTACT — 03C5 
NTTACT — 0306 
NTTACT — 03C7 
NTTACT--0308 
NTTACT — 03C9 
NTTACT — 0310 
NTTACT— 031 1 
NTTACT — 0312 
NTTACT--0313 
NTTACT — 0314 
NTTACT--0315 
STEABYNTTACT--0316 
NTTACT — 0317 
NTTACT--C318 
NTTACT — 0319 
NTTACT — 0320 
NTTACT — 3321 
NTTACT--0322 
NTTACT — 0323 
NTTACT — 0324 
NTTACT — 0325 
NTTACT--0326 
NTTACT — 0327 
NTTACT — 0328 
NTTACT--0329 
NTTACT — 0330 
NTTACT — 0331 
NTTACT — 0332 
NTTACT— 0333 
NTTACT — 0334 
NTTACT — 0335 
NTTACT— 0336 
NTTACT — 0337 
NTTACT — 0338 
NTTACT — 0339 
NTTACT — 0340 
NTTACT--034 1 


IF (lUNITS.EQ, 1) GO TO 3850 
3000 HRITE (6, 3500) K, HPLENO 

3500 FOKHAT(/,20X,80('-') ,/,23X,I2,' LOOP(S) ON INITIAL COOLANT FLOW* 

Z » HERE USED. FINAL VALUE IS »,F7.2, ' LB/HR') 

HPITE (6, 3600) EXCESS 

3600 FOEMAT(5X, 'RESIDUAL COOLING AIR FLOH IS ',F9.4,' LBM/HE',/ 

Z 20X,80 {'-')) 

HRITE (6,425) (ALPH (I) , 1 = 1, 1 2) 

C 


NTTACT — 0342 
NTTACT— 0343 
NTTACT — 0344 
NTTACT — 0345 
NTTACT — 034b 
NTTACT — 0347 
NTTACT — 034 8 
NTTACT — 0349 
NTTACT — 0350 


60 TO 3900 
C 

3860 CHPLEN = HPLENO/CMSFL (1 ) 

CEXCSH = EXCESH/CMSFl ( 1) 

HRITE (6,3870) K, CHPLEN 

3870 FORMAT(/,20X,80('-') ,/,23X,l2,» LOOP(S) ON INITIAL COOLANT FLOH' 

Z ' HERE USED. FINAL VALUE IS ',F7.2, ' KG/HR') 

HEITE(6,3880) CEXCSH 

3880 FORMAT (5X, 'RESIDUAL COOLING AIR FLOH IS ',F9.4,' KG/HR',/ 

Z 20X,80 ('-')) 


NTTACT — 0351 
NTTACT — 0352 
NTTACT — 0353 
NTTACT — 0354 
NTTACT — 0355 
NTTACT — 0356 
BTTACT--0357 
NTTACT — 0358 
NTTACT--035S 
NTTACT — 0360 
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WRITE (6,425) (ALPH(I) ,1=1,12) NTTACT- 

C NTTACT- 

3900 CONTINUE NTTACT-- 

MD2 = 1 NTTACT- 

IF (NSLICE.GT. 1. AND. IPLOT.GT.O) CALL PLOTMF ( ALPH2 ) NTTACT- 

WRITE (6,425) (ALPH (I) ,1=1,12) NTTACT- 

STOP NTTACT- 

END NTTACT- 


C = 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c= 

c 


c 

c 


— SOURCE. NFLOEST 

SUBROUTINE FLOWS ( JS , DELTAN, ICHOKE, AMCHOK) 


SOURCE. NFLOEST — 

THIS SUBROUTINE CO?iPOTES THE FOLLOWING 

WJ, IMPINGEMENT JET FLOW RATES (LBM/SEC). 

WCROS, THE CHANNEL CROSSFLOWS (LBM/SEC) . 

AM2, THE SQUARE OF THE CHANNEL MACH NUMBER. 

WDUMP, A FLOWRATE DUMPED DIRECTLY FROM CENTRAL PLENUM INTO TRAILING 
EDGE CHANNEL (LBM/SEC). 

WIM, THE TOTAL COOLANT FLOW USED FOR THIS SLICE (LBM/SEC). 

WFC, FILM COOLING HOLE FLOW RATES (LBM/SEC) . 

FF, THE CHANNEL FRICTION FACTOR, EITHER FOR LAMINAR, TURBULENT, OR 
A PIN FIN ARRAY. 

FLMEFF, A FILM COOLING EFFECTIVENESS. 


COMMON /CHKHOL/ WCHK(80), WCHKDM 


COMMON 

/FLMCOL/ EHOVGA(80), PG(80), 

XPC(80) , 

FLMEFF (80) , 

Z 

XHOC (80) 

, EMSS (80) , REFC(80) 

, NFCSOP(80) 

COMMON 

/FRIC/ ALPHA, BETA, DELTA, 

EPS 


COMMON 

/PRPS/ CPO, 

GAMO, 

DP(80) , 

SP(80), ES (80) , 

Z 

CPC (80) , 

GAMC (80) , 

DOHR1 (80) , 

DOMR2(80) 

COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 

Z 

GAM, 

PIM, 

P, 

SPAN, TOG 

Z 

WDUMP, 

WIM, 

AKC (15,80) 

, AKW(15,80), 

Z 

A (400) , 

AJET (80) , 

A«2 (80) , 

CNOM (80) , 

z 

DH (80) , 

DHF (80) , 

DHJ (80) , 


Z 

DLX (400) , 

FF (8C) , 

HC(80) , 

HG(80) , 

z 

P(2, 15,80) , 

PEXIT(1 5) , 

POMP (80) , 

QG(80) , 

z 

QSNK(80) , 

RR (80) , 

S (15) , 

T(2,15,400) , 

z 

TG(80) , 

TAU (400) , 

»FC (80) , 


z 

WJ(15,80) , 

WCROS (2,15, 

30) , 

XN(60) , 

z 

ICOE, 

IFILM, 

IHOB, 

ITIP, 

z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE, 

z 

NFWD, 

NSTA, 

IHC (80) 


COMMON 

/TRKSNT/ RHOC, 

RHOM, 

SPHTC, 

SPHTM, 

2 

DLTYME, 

TYMS, 

TEPS, 

TYMMAX 


DATA CHKD/«SV# UNCHKD/* 
DIMENSION DELTAN (15) 


NFLOEST 
NFLOEST 
NFLOEST 
= NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
^NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 


0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 


0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 
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C FOLLOWING VARIABLES NEEDED TO CALCULATE FILM COOLING EFFECTIVENESS. 

C THEY ARE TRANSMITTED THROUGH COMMON FLMCOL 
C WHERE- 

C PG IS GAS SIDE STATIC PSESSUEE DIS TPIBUT ION ; XFC IS THE 

C DISTANCE A STATION IS DOWNSTREAM FROM THE NEAREST 

C ROW OF FILM COOLING HOLES^ (IN); FLMEFF IS THE CALCULATED 
C FILM EFFECTIVENESS AT EACH STATION; 

C XMOC IS COOLANT VISCOSITY BASED ON LOCAL COOLANT TEMPERATURE; 

C EMES IS THE PRODUCT M*S, WHERE M IS THE BLOWING 
C RATIO, AND S IS AN EQUIVALENT SLOT WIDTH; REFC IS THE FILM 
C REYNOLDS NUMBER, BASED ON S; AND NFCSUP IDENTIFIES 
C THE STATION NUMBER SUPPLYING FILM COOLING TO DOWNSTREAM STATIONS. 

C 

100 CONTINUE 

C INITIALIZE HOLE CHOKING INDICATOR TO UNCHOKED 
DO 101 I = 1,NSTA 

101 WCHK(I) = UNCHKD 
ICHOKE = 0 

N = NSTA-1 
C 

C N = NODE NUMBER OF LAST FLOW CHANNEL NODE, AT EXIT OF TRAILING EDGE 

C 

C 

C CALCULATE IMPINGEMENT FLOWS, AND FORWARD REGION FILM COOLING FLOWS 
C 

TMP ^ TOG 

CALL GASTBL (TMP, C, CP , GAM ,PD, E , XMU) 

GAMO = GAM 
CPO = CP 
NODSF = 5*NFWD 


NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 


C 

120 


PAVG = P (2,ISLICE,1) 

WJ(ISLICE, 1) = 0.0 
IF (PAVG.GT.PIM) GO TO 120 

WCR=CD*PAVG*AJET (1)/ (R^TOG) *SQRT (64 . 4 + GAMO* E^TOG/ (G^MO 
Z (PIM/PAVG) ( (GAMO- 1.0) /GAMO) 

WJ(ISLICE,1)=PAVG/(R^T0G)*AJET (1) *CD* 

Z SQRT {64. 44cgAMO=^R*T0G/ (GAMO-1 .) ♦ (1 . - (PAVG/PIM) ** ( (GAMO 
1 ♦ (PIM/PAVG) **((GAMO-1.0)/GAMO) 

WFC(1) =0.0 

IF (P (2, ISLICE, 1) . GT. PG ( 1) ) WFC(1) = CD* . 25 >^3 . 1 4 1 59 26 ♦ 
Z *SQRT(32.2*P (2 , IS LICE , 1 ) ♦ (P (2, IS LICE, 1) -PG (1) )/ (R*T (2 
IF{WCR. LT. WJ (ISLICE, 1) ) WCHK(1) = CHKD 
IF(WCR.LT.WJ(ISLICE, 1) ) WJ (ISLICE, 1) =WCR 

PAVG = P(2, ISLICE, 2) 

WJ(ISLICE,2) = 0,0 
IF (PAVG.GT.PIM) GO TO 130 

WCR=CD*PAVG*AJET (2)/(R*T0G) ♦SQRT (64 . 4 *G AHO^R*T0 G/ (GAM D 
Z (PIM/PAVG) ( (GAMO- 1.0) /GAMO) 

WJ (ISLICE, 2) =PAVG/(R*T0G) * A JET (2) *CD^ 

Z SQRT (64 .4*GAMO*R*T0G/ (GAMO-1 . ) ^ (1. - (PAVG/PIM) ( (GAMD 
Z * (PIM/PAVG) ( (GAMO-1 .0) /GAMO) 

WFC (2) =0.0 

IF (P (2, ISLICE, 2) .GT.PG (2) ) WFC (2) = CD^ . 25 * 3 . 1 4 1 59 26^ 

Z *SQRT(32.2*P (2, IS LICE, 2) ♦ ( P (2 , ISLICE, 2) -PG (2) ) / 

Z (R^T (2, ISLICE, 10) )) 

IF(WCR.LT. WJ(ISLICE,2) ) WCHK(2) = CHKD 
IF(WCR. LT. WJ (ISLICE, 2) ) WJ ( IS LICE , 2 ) = W CR 


NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
+ 1.) ) * NFLOEST 

NFLOEST 
NFLOEST 
-1.) /GAMO) ) ) NFLOEST 
NFLOEST 
NFLOEST 
(DHF (1 ) ^^ 2 ) NFLOFST 
, ISL ICE, 5) ) ) NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
+1.))* NFLOEST 

NFLOEST 
NFLOEST 
- 1.) /GAMO) ) ) NFLOEST 
NFLOEST 


(DHF (2) *^2) 


NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOEST 

NFLOFST 

NFLOEST 


0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 
0iO5 

0436 

0437 

0438 

0439 
C440 

0441 

0442 

0443 

0444 
0<^45 
04 4 6 
0447 
Ch4 8 
044? 
0450 
G'J5 1 

0452 

0453 

0454 

0455 

0456 

0457 

0458 
C4dG 
C4b0 
C46 1 
0462 
04t 3 

0464 

0465 

0466 
C467 
04d» 
04 6 9 
C470 
047 1 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 
04 6 0 
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130 


PAVG = P(2,ISLICE,3) NFLOEST 

WJ(ISLICE,3) = 0.0 NFLOEST 

IF (PAVG.GT.PIM) GO TO 140 NFLOEST 

WCR=CD*PAVG*A JET (3) / (R*T0G) *SQRT (64 . 4*GAMO*E*TOG/ (GAMO + 1.) ) * NFLOEST 

Z (PIB/PAVG)** ( (GAHO-1.0)/GAMO) NFLOEST 

WJ(ISLICE,3)=PAVG/(E*T0G)*AJET(3) *CD* NFLOEST 


140 

C 


Z SQHT(64.4*GAMO*E*T0G/(GAHO-1.)* (1 
Z * (PIH/PAVG) ** ((GABO- 1.0) /GABO) 

WFC (3) =0.0 

IF (P (2,ISLICE,3) .GT. PG (3) ) HFC(3) = CD*. 25* 3. 14 1 59 26* ( DHF ( 3) **2) 
Z *SQET (32. 2*P (2, ISLICE, 3) * (P (2,ISLICE,3) -PG (3) ) / 

Z (E*T (2,ISLICE,15)) ) 

IF(HCR.LT.WJ(ISLICE,3)) WCHK (^) =CHKD 
IF(WCE.LT. WJ(ISLICE,3) ) WJ (IS LICE, 3 ) =WCE 
CONTINUE 


- (PAVG/PIB) ** ( (GABO- 1. ) /GABO) ) ) NFLOEST 

NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 


150 

C 

C 

C 

200 


DO 150 I = 4,NFWD 
PAVG = P (2, ISLICE, I) 

HJ(ISLICE,I) = 0.0 
IP (PA7G.GT.PIB) GO TO 150 

WCE=CD*PAVG*AJET(I)/(E*T0G) *SQRT (64.4*GABO*E*TOG/ (GABO+1.) )* 

Z (PIB/PAVG)** ( (GABO-1. 0)/GABO) 

WJ (ISLICE ,1) =PAVG/(E*T0G) *AJET (I) *CD* 

Z SQRT (64. 4*GABO*E*TOG/ (GABO-1.)* (1. - (PAVG/PIB)** ( (GASO-1.) /GABO) ) ) NFLOEST 
Z * (PIB/PAVG) **( (GABO- 1.0) /GABO) NFLOEST 

HFC(I) = 0.0 

IF (P (2,ISLICE, I) .GT.PG (I) ) WFC(I) = CD* . 25* 3. 1 4 1 5926* (DBF (I) **2) 

Z *SQET(32.2*P (2,ISLICE, I) *(P(2, ISLICE, I) -PG (I) )/ 

Z (E*T (2, ISLICE, 5*1) ) ) 

IF(HCR.LT.HJ(ISLICE,I)) WCHK(I) =CHKD 
IF(HCR.LT.HJ(ISLICE,I) ) HJ (ISLICE, I) =WCE 
CONTINUE 


CALCULATE CROSSFLOW RATE AT EACH STATION 


0.0 


WCROS (2, ISLICE, JS) = 

JDIS = JS/2 

C**=* JDIS IS THE DISPLACEBENT 
JSENS = JS - 2*JDIS 
C********* JSENS = 0, STATION IS 


ON SUCTION 


JP = JS + 

JB = JS - 
IF (JB.LT 
JFIN = JS 1 
JSTAET = JS + 3 
IF (JS.EQ.1) GO 
IF (JSENS. EQ.1) 
IF (JSENS. EQ.O) 


= 1, STATION 

2 

2 

1 ) 


JB = 1 


TO 

GO 

GO 


220 

TO 230 
TO 270 


C 

220 

c 

c 

c 

c 


CONTINUE 

WCROS AT A GIVEN STATION 
PLUS IMPINGEMENT JET 

FLOW FROM UPSTREAM 
FLOW AT THIS STATION. 


NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOE ST 
NFLOEST 

OF THE FLOW SPLIT STATION FROM STATION 1 NFLOEST 

NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 
NFLOEST 


IS ON PRESSURE 


SIDE 

SIDE 


(EVEN) 

(ODD) 


IS THE CROSSFLOW AT UPSTREAM STATION 


STATION MINOS ANY FILM COOLING 


THIS BLOCK IS EXECUTED IF FLOW SPLIT OCCURS AT STATION 1. ISTART=5NFLOEST 
WCROS (2,ISLICE^2) = DELTAN (ISLICE) ♦ (WJ (ISLICE^I) -WFC (1 ) ) - WFC(2) NFLOEST 
WCROS (2»ISLICE,3)= (1 . -DELTAN (IS LICE) ) *(HJ (ISLICE, 1) -WFC (1) )-WFC (3) NFLOEST 
GO TO 320 NFLOEST 


0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 


61 



noon nonn 


c 

230 CONTINUE 

C********* THIS BLOCK IS EXECUTED IF FLOW SPLIT STATION IS OH 
C THE PEESSUEE SIDE. JSENS=1 

HCEOS (2,ISLICE, JP) = (1 . -DELTAN (IS LICE) ) * (H J (ISLICE, JS) -HFC (JS) ) 
Z-WFC(JP) 

WCEOS (2, ISLICE, JH) =DELTAN (ISLICE) *( BJ (ISLICE, JS) -BFC(JS) ) -WFC (JH) 

IF (JM.EQ.1) GO TO 250 

lENG = JDIS - 1 

DO 240 I * 1,IENG 

IBK * (JM - 2*1) 

IBKP = IBK + 2 

240 HCEOS (2, ISLICE, IBK) = HCEOS (2, ISLICE, IBKP) + HJ (ISLICE , IBKP) 

Z - HFC(IBK) 


250 JNOD = JFIN 

DO 260 I = 2, JNOD, 2 
IH8 = 1-2 

IF (IB8.EQ.0) IMS = 1 

260 HCEOS(2, ISLICE, I) = HCEOS (2 , IS LICE, IMS) + H J (ISLICE, IM 8 ) -H FC (I) 

GO TO 320 


C 

270 CONTINUE 

C********* THIS BLOCK IS EXECUTED IF FLOH SPLIT STATION IS ON 
C SUCTION SIDE. JSENS=0 

HCEOS (2, ISLICE, JP) =DELTAN (ISLICE) *( HJ (I SLICE ,JS) -HFC(JS) ) -HFC(JP) 
IF (JS.EQ.2) JM = 1 

HCEOS (2,ISLICE, JM) = (1 .-DELTAN (ISLICE) )* (HJ (ISLICE, JS) - WFC (JS) ) 
Z-HFC (JM) 

IF (JM.EQ.1) GO TO 300 
IF (JM.EQ.2) GO TO 290 
JM1 = JM-2 
DO 280 I = 2,JM1,2 
IBK = (JM-I) 

IBKP = IBK + 2 

280 HCEOS (2, ISLICE, IBK) * HCEOS (2, ISLICE, IBKP) + HJ (I SLICE , IBKP) 

Z - HFC (IBK) 

290 HCEOS (2, ISLICE, 1) = HCEOS(2, ISLICE, 2) + HJ (ISLICE, 2) - HFC(1) 

300 CONTINUE 

C NOH OP THE PEESSUEE SIDE 

JNOD = JFIN 

DO 310 I = 3, JNOD, 2 

310 HCEOS (2, ISLICE, I) = HCEOS (2 , ISLICE, 1-2) ♦ HJ (ISLICE, 1-2) -HFC (I) 

C 

320 CONTINUE 

ISTAET = JSTAHT 
DO 330 I * ISTAET, NFHD 

HCEOS (2, ISLICE, I) = HCEOS (2 , ISLICE, 1-2) + HJ (ISLICE, 1-2) - HFC(I) 

330 CONTINUE 


CALCULATE CROSSFLOW HE 6 MACH NUMBER SQUARED, AND FILM COOLING EE, 
FOE THE FOBHABD BEGION. 


DO 360 I = 1,NFHD 
LCOOL = 5*1 
LIN = LCOOL-1 
AMIN = A (LCOOL) 

EVALUATE COOLANT PROPERTIES AT MEAN TEMPERATURE BETWEEN HALL 
AND COOLANT BULK 
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335 


340 

350 
360 
C 
C 
C 


T«P = (T(2,ISLICErLCOOL) ♦ T (2, ISLICE^LIN) ) /2. 

CALL GASTBL (TMP,C,CP ,GAfi,PD,B,XMO) 

XMUC{I) = XHO 
CPC (I) = CP 
GAMC(I) = GAM 

KE(I) = 12.*3600.*ABS(WCROS(2^ISLICE,I) )*DH (I)/(AMIN*XMU) 

REFC(I) = 12**3600.*MFC(I)/(S (ISLICE) ♦XMO) 

IF (IHC (I) .EQ*3) AMIN = A (LCOOL) ♦ (SP (I) -DP (I) ) /SP (I) 

N = WCBOS (2,ISLICE,I) 

PBAR = P(2,ISLICE,I) 

TEAR = T(2^ISLICE,LCOOL) 

AM2 (I) = (H/ (PBAR* AMIN) ) ♦♦2*R*TBAR/GAMC ( I) /32. 2 
IF (AM2(I).LT.1.0) GO TO 340 
AMCHOK = AM2(I) 

ICHOKE = I 

IF (IHC (I) .HE.3) GO TO 350 
AM2(I) = AM2 (I) ♦((AMIN/A (LCOOL) )**2) 

CONTINUE 
CONTINUE 

CALCULATE FLOW DUMPED DIRECTLY INTO TRAILING EDGE REGION. 

PAVG = .5*(P(2,ISLICE,NFWD) ♦ P ( 2^ISLICE , NFMD-1 ) ) 

IF (PAVG.GT.PIM) GO TO 370 

WCR=CD*PA7G*ADUMP/(R*T0G)*SQRT (6 4. 4 *GAMO^ R*T0G/ (GAMO^I.) ) ♦ 

Z (PIM/PAVG) ♦*((GAMO-1.0)/GAMO) 

WDUMP = PA VG/ (R*T0G) ♦ADUMP^CD* 

Z SQRT (64.4*GAMO*E*TOG/(GAMO-1.) * (1.-(PAVG/PIM)**( (GAMO-1.) /GAMO) ) 
Z * (PIM/PAVG) ♦♦((GAMO-1.0)/GAMO) 

IF(WCR.LT.WDDMP) WCHKDM = CHKD 
IF (NCR. LT. HDUMP) WDOMP=WCR 
C 

C ADD UP TOTAL FLOW FROM IMPINGEMENT PLENUM, WIH. 

C 

370 WIM = WDUMP 

DO 380 I = 1,NSTA 
380 WIM = WIM ♦ WJ(ISLICE,I) 

C 

C TRAILING EDGE REGION, CALCULATE FILM COOLING FLOWS. 

C 

ISTRT = NFWD+1 
DO 400 I = ISTRT, N, 2 
LCOOL = 5*1 
WFCDUM = 0.0 

IF (P(2,ISLICE,I) .GT.PG(I) ) WFCDUM = CD*. 25*3. 1415926* 

Z SQRT (32.2*P(2,ISLICE,I) *(P(2,ISLICE, I)-PG(I) )/ 

Z (R*T (2, ISLICE,LCOOL) ) ) 

WFC (I) = WFCDUM* (DHF (I) **2) 

HFC(I + 1) = WFCDUM* (DHF (1 + 1) **2) 

CONTINUE 


390 


400 
C 
C 

c 
c 


TRAILING EDGE REGION, CALCULATE CROSSFLOW, RE, MACH NUMBER 
SQUARED, AND FILM COOLING RE. 

WCaOS (2,ISLICE,ISTRT) = WCROS (2 , ISLICE, NFWD-1) + 

Z WCROS (2, ISLICE, NFWD) + WDUMP + WJ (ISLICE, NFWD- 1) 

Z ♦ WJ (ISLICE, NFWD) - WFC (ISTRT) - WFC(ISTRT+1) 

WCROS (2, ISLICE, ISTRT+1) = WCROS (2 , IS LICE, 1ST RT) 

AMIN = A (NODS P + 5) 
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c 

C EVALUATE COOLAHT PROPERTIES AT MEAN TEMPERATURE BETWEEN WALL 
C AND COOLANT BULK 

C 

IMP = (T (2,ISLICE,5*ISTRT) + T ( 2,ISLICE ,5*ISTRT-1) ) /2 • 

CALL GASTBL(THP^C,CP,GAH^PD,R,XMO) 

XMUC(ISTRT) = XMU 
XMUC (ISTRT+1) = XMU 
CPC(ISTRT) = CP 
CPC(ISTRT+1) = CP 
GAMC(ISTRT) = GAM 
GAMC (ISTRT+1) = GAM 
C 

REFC(ISTRT) = 12**3600 • *WFC (ISTRT) / (S (ISLICE) *XMU) 

REFC (ISTRT+1) = 12**3600 .*WFC (ISTRT+ 1) / (S (I SLICE) *XMa) 
RE(ISTRT) = 12.*3600.*ABS(WCROS (2 , ISLICE^ ISTRT) ) *DH (ISTRT)/ 

Z (AMIN*XMU) 

RE (ISTRT+1) = RE (ISTRT) 

IS == ISTRT 

IF (IHC(IS) .EQ.3) AMIN = A (NODSF + 5) ♦ (SP (I S) -DP (I S) ) /SP (IS) 

W = WCROS (2^ISLICE, ISTRT) 

PBAR = P(2^ISLICE, ISTRT) 

TBAR = T(2,ISLICE,NODSF + 5) 

405 AM2 (ISTRT) = (W/ (PBAR* A MIN) ) **2* R*T BAR/GAMC (ISTRT) /32. 2 
IF (AM2 (ISTRT) .LT, 1*0) GO TO 410 
AMCHOK = AM2 (ISTRT) 

ICHOKE = ISTRT 

410 IF (IHC (IS) .NE.3) GO TO 420 

AM2(ISTRT) = AM2(ISTRT)*((AMIN/A(NODSF+5))**2) 

420 AM2 (ISTRT+1) = AM2 (ISTRT) 

ISTRT ISTRT + 2 
IS = NFWD + 1 
DO 450 I = ISTRT, N, 2 
LCOOL = 5*1 
AMIN = A (LCOOL) 

IS = IS + 2 

IF (IHC (IS) *EQ*3) AMIN = A (LCOOL) * (SP (IS) -DP (IS) ) /SP (13) 
WCROS (2,ISLICE,I) = HCROS (2, ISLICE, 1-2) - WFC(I) - WFC(I+1) 
WCROS (2,ISLICE,I+1) = WCROS (2, ISLICE, I) 

C 

C EVALUATE COOLANT PROPERTIES AT MEAN TEMPERATURE BETWEEN WALL 
C AND COOLANT BULK 

C 

THP = (T(2,ISLICE, LCOOL) + T (2 , IS LI CE, LCOOL- 1 ) ) /2 . 

CALL GASTBL (TMP, C,CP, GAM ,PD ,P ,XM0) 

XMUC(I) = XMU 
XMUC(I + 1) = XMU 
CPC (I) = CP 
CPC (1+1) = CP 
GAMC (I) = GAM 
GAMC (1+1) = GAM 
C 

REFC(I) = 12.*3600**WFC(I)/(S(ISLICE)*XMU) 

REFC(I+1) = 12,*3600,*WFC(I + 1)/(S (ISLICE) *XMU) 

RE(I) = 12.*3600.*ABS(WCROS(2,ISLICE,I) )*Dfl (I)/(A (LCOOL) *XMU) 
RE(I+1) = RE(I) 

W = WCROS (2,ISLICE,I) 

PBAR = P(2,ISLICE,I) 

TBAR = T(2,ISLICE, LCOOL) 

425 AM2(I) = (W/(PBAR*AMIN) )**2*R*TBAR/GAMC (I)/32*2 
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IF (AM2 (I) . LT. 1. 0) GO TO 430 


NFLOEST 


AMCHOK = AM2 (I) 


NFLOEST 


ICUOKE = I 


NFLOEST 

430 

IF (IHC (IS) .NE. 3) GO TO 440 


NFLOEST 


AM2(I) = AM2 (I) * { (AMIN/A (LCOOL) ) **2) 


NFLOEST 

44 G 

AM2(I + 1) = AM2(I) 


NFLOEST 

450 

CONTINDE 


NFLOEST 

C 



NFLOEST 

C 1 

CALCULATE COOLANT CHANNEL FRICTION FACTOR AT 

EACH STATION. 

NFLOEST 

C 



NFLOEST 


DO 560 I = 1.NSTA 


NFLOEST 


LCOOL = 5*1 


NFLOEST 


IF (WCROS (2,ISLICE,I) .LE.0.0) GO TO 550 


NFLOEST 

c 



NFLOEST 

c 

DETERMINE IF RE IS LAMINAR, TRANSITIONAL, OR 

TURBULENT 

NFLOEST 

c 

AMD CALCULATE THE FRICTION FACTOR 


NFLOEST 

C 



NFLOEST 


IF (IHC (I) .EQ.3) GO TO 540 


NFLOEST 


IF(RE (I) . GT.2300.) GO TO 510 


NFLOEST 

500 

FF(I) = DELTA*RE (I) **EPS 


NFLOEST 


GO TO 560 


NFLOEST 

bTC 

IF (RE (I) .LT. 4000.) GO TO 530 
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520 

FF(I) = ALPHA*RE (I) **BETA 


NFLOEST 


GO TO 560 


NFLOEST 

530 

A1=DELTA*23C0.**EPS 


NFLOEST 


A2= ALPHA*4000 .**BETA 


NFLOEST 


FF(I) = (A2* (RE (I) -2300. ) +A 1* (4000. -RE (I) ) ) /1700. 

NFLOEST 


GO TO 560 


NFLOEST 

540 

CONTINUE 


NFLOEST 

C 



NFLOEST 

c 

FOR A PIN FIN ARRAY: 


NFLOEST 


FF(I) = 1 .060*(RE(I) **(-.3301)) 


NFLOEST 


GO TO 560 


NFLOEST 

550 

CONTINUE 


NFLOEST 


FF(I) = 0.0 


NFLOEST 

560 

CONTINUE 
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C 
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C 
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C 
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c 

c 

c 


THE FOLLOWING 
IF IFILM IS 


BLOCK IS 
SET = 2 


OSED TO COrjPaTE THE FILfl COOLING 


IF (IFILM. LT. 2) GO TO 690 
IFSPLT = 0 
DO 610 I = 1, NSTA 
610 XFC(I) = 0.0 
N = NSTA-1 

C LOCATE FILM COOLING HOLES AND SET UP THE XFC ARRAY 
C 

C IFSPLT IS AN INDICATOR THAT TELLS WHICH SIDE OF THE BLADE STATION 1 

C IS TO BE CONSIDERED A PART OF FOR FILM COOLING PURPOSES. 

C 0 IS THE DEFAULT, AND INDICATES SUCTION SIDE 

C = 1 WILL INDICATE PRESSURE SIDE. 

C FIRST, MARCH DOWN THE PRESSURE SIDE SEARCHING FOR FILM COOLING HOLES 
IF (DHF (1) .GT.0.0) NFC = IFSPLT 
IF (NFC.EQ.O) NFC = NSTA + 1 
XDUM = 0.0 
DO 615 I = 3, NSTA, 2 
NOS = 5*1 - 4 

IF (I.GT.NFC) XFC(I) = XDUM + DLX (NOS) 
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n n n 


IT (DHF(I) .GT.0.0) GO TO 612 
XDOH = XFC(I) 

GO TO 615 
612 NFC = I 

XDUM = 0.0 
615 CONTINUE 
C 

C — SUCTION SIDE 
C 

IF (DBF (1) .GT.0.0) NFC = 1 - IFSPLT 

IF (NFC.EQ.C) NFC = NSTA + 1 

XDUM = 0.0 

DO 625 I = 2,N,2 

NOS = 5*1 - 4 

IF (I.GT.NFC) XFC(I) = XDUH + DLX (NOS) 

IF (DHF(I) .GT.0.0) GO TO 622 
XDUM = XFC(I) 

GO TO 625 
622 NFC = I 

XDUM = 0.0 
625 CONTINUE 

C INT. J. HT. 6 MASS TEANS. , V8, 1965, PP 55-65 

C FLMEFF = 3.09* ((X/(M*S) ) *(HE*H0C/MUG) **(-1/4) + 4.1)**(-.8) 

C 

IFCS = 0 
IFCP = 0 

IF (WFC(1) .lE.C.O) GO TO 630 
IFCS = 1 - IFSPLT 
IFCP = IFSPLT 

IF (EHOVGA (1) .GT.0.0) EMES(1) = 144 . *HFC (1) / (EHOVGA (1) *S (ISLICE) ) 
630 CONTINUE 

DO 650 1=2, NSTA 
ISENS = 1-2* (1/2) 

IF (EHOVGA(l) .GT.O.) EMES(I) = 1 44 . *»FC (I) / (RHOVGA (I) *S (IS LICE) ) 
FLMEFF (I) = 0.0 
IF (ISENS. EQ.O) GO TO 640 
C PRESSURE SIDE SUPPLY HOLE LOCATIONS 
IF (HFC(I) .GT.0.0) IFCP = I 
NFCSUP(I) = IFCP 
GO TO 650 
640 CONTINUE 

C SUCTION SIDE SUPPLY HOLE LOCATIONS 
IF (HFC(I) .GT.O.) IFCS = I 
NFCSUP(I) = IFCS 
650 CONTINUE 
C 

TMP = TG (1) 

CALL GASTBL (TMP, C, CPM , GAM, PD, R, XHUM ) 

FINALLY, CALCULATE THE EFFECTIVENESS 

DO 680 I = 1,NSTA 
IMS = NFCSUP(I) 

IF (XFC (I) .EQ.O. O.OR.EMES(IMS) . EQ . 0 . O.OR . REFC (IMS) .EQ.O.O), 

Z GO TO 680 

C3 = CPC (IMS) /CPM 

XBAR = (XFC (I)/EMES (IMS) )* ( (REFC (IMS) *XMUC(I)/XMUM) ** (-.25) ) 
ETAPRH = 3.09* (XBAH + 4. 1)** (-.8) 

FLMEFF(I) = C3*ETAPHM/(1.0 + (C3- 1 . 0) *ETAPBM) 

IF (FLMEFF(I) .GT.1.0) FLMEFF (I) = 1.0 
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680 

CONTINUE 

NFLOEST 

0841 

C 


NFLOEST 

0842 

C 


NFLOEST 

0843 

690 

CONTINUE 

NFLOEST 

0844 


BETORN 

NFLOEST 

0845 


END 

NFLOEST 

0846 


C SOURCE. NFLSPLP 

SUEROOTINE FLSPLT (AJET, EPSN ,ISLICE, NODSF,IDELT, JS,DELTiN,I COHV) 
DIHENSION DELTAN(15), AJET(80), JSOLDS (25) 

C 

C- SOOECE.NFLSPLP A SOBBOOTIHE TO SET THE STATION AT WHICH COOLING 

C AIR FLOW SPLITS BETWEEN THE SOCTION 

C AND THE PBESSUBE SIDE FLOW CHANNELS. 

C 

C INPUT TO FLSPLT IS THE PRESSURE HATCH PARAMETER, EPSN; THE NO. OF 
C NODES (NODSF) IN THE IMPINGEMENT REGION; 

C JS COMES IN AS THE CURRENT FLOW SPLIT STATION NO., AND IS 

C RETURNED AS THE NEW STATION IF A CHANGE IS NEEDED. 

C DELTAN COMES IN AS THE CURRENT FRACTION OF FLOW SPLIT TO 

C SUCTION SIDE FROM AN IMPINGEMENT 

C JET AT JS. IF A CHANGE IN JS IS NOT NEEDED, DELTAN IS 

C USED TO FINE TUNE THE SPLIT. 

C ICONV INDICATES IF CONVERGENCE IS COMPLETE. 

C = 0 — NOT DONE; = 1 — OK. 

C 

NFWD = NODSF/5 
IF (lUNSTB. EQ. 1) GO TO 280 
IF (IDELT.NE.1) GO TO 220 
JNUHS = 0 
lUNSTB = 0 
NUMS = 0 
JSGNCH=0 
JOOTRG=0 
DO 210 I = 1,25 
210 JSOLDS(I) = 0 
220 CONTINUE 

CRITP = .002 
ICONV = 0 

JSENS = JS - 2*(JS/2) 

C******** (SOCTION - PRESSURE SIDE PRESSURES)/ SUCTION SIDE = EPSN 
IF (ABS (EPSN) .LT.CHITR) GO TO 280 
C 

C****»»*****iF EPSN < 0.0; NEED TO INCREASE FLOW TO PRESSURE SIDE 
C^m^*****.*** EPSN > 0.0; NEED TO INCREASE FLOW TO SOCTION SIDE 
C 

IF (JTIMES.EQ.O) GO TO 246 
C 

C********* JTIMES = 0, THIS IS FIRST CHECK AT THIS STATION, 

C SO ROUGH ADJUST DELTAN; 

C‘******** 1, HAVE BEEN HERE BEFORE, SO FINE TONE DELTAN. 

C 

IF ( JSGNCH.GT.O ) GO TO 247 
C 

c********* JSGNCH = 0, THERE HAS NOT BEEN A PRIOR SIGN CHANGE IN EPSN; 
C***m***** =1, THERE HAS BEEN A SIGN CHANGE BEFORE, 

C SO STAY AT THIS STATION 

C 
C 
C 

242 IF (EPSO/EPSN.LT.O.) JSGNCH = 1 
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NFLSPLP 0888 
NFLSPLP 0889 
NFLSPLP 0890 
NFLSPLP 0891 
NFLSPLP 0892 
NFLSPLP 0893 
NFLSPLP 0894 
NFLSPLP 0895 
NFLSPLP 0896 
NFLSPLP 0897 
NFLSPLP 0898 
NFLSPLP 0899 
NFLSPLP 0900 
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c 



NFLSPLP 

0901 

247 

CONTINUE 


NFLSPLP 

C902 


IF (BPLAST/EPSN.GE.O) GO TO 243 

NFLSPLP 

0903 


DELTAO = DELAST 


NFLSPLP 

0904 


EPSO = EPLAST 


NFLSPLP 

0905 

243 

CONTINUE 


NFLSPLP 

0906 


IF (JSGNCH.EQ.O) GO TO 252 


NFLSPLP 

0907 


IF (NUMS.GT.O) GO TO 248 


NFLSPLP 

09C3 


EPSHIN = ABS(EPSN) 


NFLSPLP 

0909 


DLTAOP = DELTAN (ISLICE) 


NFLSPLP 

0910 

2^8 

NOHS = NUMS ♦ 1 


NFLSPLP 

0911 


IF (ABS (EPSN) .GT. EPSHIN) GO TO 

249 

NFLSPLP 

C912 


EPSHIN = ABS(EPSN) 


NFLSPLP 

0^13 


DLTAOP = DELTAN (ISLICE) 


NFLSPLP 

0914 

249 

CONTINUE 


NFLSPLP 

0915 


IF (NUHS.LT.4) GO TO 252 


NFLSPLP 

0916 


IF (JNUHS.EQ. 1) GO TO 250 


NFLSPLP 

0917 


NUHS = 0 


NFLSPLP 

0918 


JNUHS = 1 


NFLSPLP 

0919 


DELTAN (ISLICE) = DELTAO 


NFLSPLP 

0920 


JTIHES = 0 


NFLSPLP 

0921 


JSGNCH = 0 


NFLSPLP 

0922 


JOUTBG = 0 


NFLSPLP 

0923 


GO TO 290 


NFLSPLP 

C924 

250 

CONTINUE 


NFLSPLP 

0925 


DELAST = DELTAN (ISLICE) 


NFLSPLP 

0926 


DELTAN (ISLICE) = DLTAOP 


NFLST^LP 

0927 


lUNSTB = 1 


NFLSPLP 

0928 


GO TO 290 


NFLSPLP 

0929 

C 



NFLSPLP 

0930 

C 



NFLSPLP 

0931 

246 

JTIHES = 1 


NFLSPLP 

0932 


EPSO = EPSN 


NFLSPLP 

0933 


DELTAO = DELTAN (ISLICE) 


NFLSPLP 

0934 


IF (EPSO. GT. 0.0) DELTAN (ISLICE) 

= (1. 0 + DELTAN (ISLICE) ) /2.0 

NFLSPLP 

0935 


IF (EPSO. LT. 0.0) DELTAN (ISLICE) 

= DELTAN (ISLICE) /2. 

NFLSPLP 

0936 


IF (DELTAN(ISLICE) . EQ. DELTAO) DE LT A N { ISLICE) = DELTAN ( ISLICE) + 

NFLSPLP 

C937 


Z 

(.5-DELTAN (ISLICE) ) /5. 

NFLSPLP 

0938 


GO TO 290 


NFLSPLP 

0933 

C 



NFLSPLP 

094^ 

c 



NFLSPLP 

094 1 

252 

CONTINUE 


NFLSPLP 

0942 


TEEfI = EPSN* (DELTAO-DELTAN (ISLICE) )/ (EPSO-EPSN) 

NFLSPLP 

0943 


IF (TERM.EQ.O.) TERM = .05 


NFLSPLP 

0944 


IF (JSGNCH. GT.O) GO TO 255 


NFLSPLP 

C945 


DELTAO = DELTAN (ISLICE) 


NFLSPLP 

0946 


EPSO = EPSN 


NFLSPLP 

no£t 7 

255 

CONTINUE 


NFLSPLP 

0948 


DELAST = DELTAN (ISLICE) 


NFLSPLP 

0949 


DELTAN(ISLICE) = DELTA N (IS L ICE) 

-TERM 

NFLSPLP 

G95C 


IF ( DELTAN(ISLICE) .LT. 1.0.AND. 

DELTAN(ISLICE) .GT.0.0) GO TO 290 

NFLSPLP 

0951 


IF (JOUTRG.GT.O) GO TO 258 


NFLSPLP 

0952 


IF (DELTAN (ISLICE) .LT. 0.0) DELTAN (ISLICE) = .01 

NFLSPLP 

0953 


IF (DELTAN (ISLICE) .GT. 1.0) DELTA N (ISLICE) = .99 

NFLSPLP 

0954 


JOUTRG = 1 


NFLSPLP 

0955 


GO TO 290 


NFLSPLP 

C956 

C 



NFLSPLP 

0957 

C 



NFLSPLP 

0958 

258 

CONTINUE 


NFLSPLP 

0959 


JOUTRG = 0 


NFLSPLP 

0960 
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c 

JSGNCH = 0 
JTIMES = 0 
JSOLDS(JS) = 1 

IF (DELTAN(ISLICE) .LT*1.) GO TO 265 
C 

C*** MOVE JS IN PRESSURE DIRECTION 
IF (JSENS.EQ.O) GO TO 262 

261 JS = JS + 2 

IF (AJET(JS) .LE*0.) GO TO 261 
GO TO 285 
C 
C 

262 CONTINUE 

IF (JS.EQ.2) JS = 1 
IF (JS.GT.2) JS = JS - 2 
IF (AJET(JS) .LE.O.) GO TO 262 
GO TO 285 
C 
C 

265 CONTINUE 

C*** HOVE JS IN SUCTION DIRECTION 
IF (JSENS.EQ.O) GO TO 267 
IF (JS. EQ. 1) JS = 2 
IF (JS.GE.3) JS = JS - 2 . 

IF (AJET (JS) .GT.O.) GO TO 265 
JSENS = JS - 2* (JS/2) 

GO TO 265 
C 
C 

267 CONTINUE 

JS = JS + 2 

IF (AJET (JS) .LE.O.) GO TO 267 
GO TO 285 
C 

c**^**^*** GET READY TO LEAVE SUBROUTINE 


C 

C THIS 
C 

260 


284 


Z 

z 


BLOCK IS EXECUTED IF CONVERGENCE NAS DETECTED 


ICONV = 1 
JTIMES = 0 

IF (lUNSTB. EQ. 1 ) WHITE(€,284) 

IF (lUNSTB. EQ. 1) WRITE(8,284) 
I UN STB = 0 
EPLAST = EPSN 
RETURN 

FORMAT (1H2, 40 (• Mr^O (•*•)//* 
13, • ITERATIONS, SPLIT 
12, •, BEST SPLIT IS AT DELTA 


ISLICE,IDELT, JS,DELTAN (I SLICE) 
ISLICE,IDELT, JS, DELTA N (I SLICE) 


SLICE •,I2,', POOR FLOW SPLIT, 
AT STATION •, 

= •,F6.4) 


C 

C 


C THIS BLOCK IS EXECUTED FOR AN ABNORMAL EXIT PROGRAM IS TERMINATED 

C 

769 CONTINUE 

WRITE (6,792) DELTAN ( ISLICE) 

WRITE (8,792) DELTAN (ISLICE) 

STOP 

7S2 FORMAT (/5X,« *♦♦♦*♦ FLOW SPLIT CANNOT BE MADE AS SPECIFIED,*, 

Z • DELTA = • ,F9.5) 


NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLS PLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLS PLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 
NFLSPLP 


0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
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I Mil II 


c 



NFLSPLP 

1021 

c 



NFLSPLP 

1022 

285 

IF { JSOLDS (JS) *£0. 1) GO 

TO 789 

NFLSPLP 

1023 


D£LTAN(ISLIC£) = .50 


NFLSPLP 

1024 

C 



NFLSPLP 

1025 

C 



NFLSPLP 

1026 

C THIS 

; BLOCK IS THE USUAL EXIT 

AFTER ADJUSTING THE FLOW SPLIT 

NFLSPLP 

1027 

C 



NFLSPLP 

1028 

29 0 

CONTINUE 


NFLSPLP 

1029 


EPLAST = EPSN 


NFLSPLP 

1030 


IF (JSGNCH.EQ.O) DELAST = 

= DELTAO 

NFLSPLP 

1031 


IDELT = IDELT + 1 


NFLSPLP 

1032 


RETURN 


NFLSPLP 

1033 


END 


NFLSPLP 

1034 


C 

— SOURCE. KGASPAT 



NGASDAT 

1035 


BLOCK DATA 



NGASDAT 

1036 

C 




NGASDAT 

1037 

c — 

SODECE.NGASDAT 



NGASDAT 

1038 

C 




NGASDAT 

1039 


COMHON /GAAS/ GS (200) ,NG 



NGASDAT 

1040 


DATA GS/620., 1160., 1700., 2240., 

2780., 

3320., 

NGASDAT 

1041 


Z .02564, .03580, .04548, .05467, . 

06435, , 

07475, 

NGASDAT 

1042 


Z ,2511, .2681, .2814, .2939, 

.3070, 

.3214, 

NGASDAT 

1C43 


Z .706, .706, .705, .703, 

.702, 

.699, 

NGASDAT 

1044 


Z .07233, .09458, .11369, .13063, . 

14683, . 

16256, 

NGASDAT 

1045 


Z 170*0.0/, NG /6/ 



NGASDAT 

1046 

c 




NGASDAT 

1047 

c — 

GS IS TABLE OF AIR PROPERTIES VS TEMPERATURE AT CONSTANT PRESSURE 

NGASDAT 

1048 

c — 

PHOPEBTI VALUES ARE FROM POFERL 6 SVEHLA, 

TN D-7488 

, AT 20 ATM. 

NGASDAT 

1049 

c — 

NG IS THE HUMBER OF TEMPERATURE ENTRIES IN THE TABLE 


NGASDAT 

1050 

c 

ENTRIES IN GS ARE: 



NGASDAT 

1051 

c — 

1ST NG ABE TEMPERATURE, (F) 



NGASDAT 

1052 

c — 

2ND NG ARE THERMAL CONDUCTIVITY, (BTU/ ( HR*FT*R) ) 


NGASDAT 

1053 

c — 

3RD NG ARE SPECIFIC HEAT, (BTO/ {LBM*R) ) 



NGASDAT 

1054 

c 

4TH NG ARE PRANDTL NUMBER 



NGASDAT 

1055 

c 

5TH NG ARE VISCOSITY, (LBM/ (FT*HR) ) 



NGASDAT 

1056 

c 




NGASDAT 

1057 


END 



NGASDAT 

1058 

c 

-SOURCE. NGASTB 



NGASTB 

105S 


SUBROUTINE G ASTBL (TMP,C , CP,G AM, PD, R , XMU) 



NGASTB 

1060 

c 




NGASTB 

1061 

c- 

SOURCE. NGASTB 



NGASTB 

1062 

c 




NGASTB 

1063 

C A 

SUBROUTINE TO LOOK UP GAS PROPERTIES IN AN 

INPUT TABLE (GS (200) ) 

NGASTB 

1Cb4 

C 

WHERE TMP = TEMPERATURE AT WHICH PROPERTIES 

ARE TO BE EVALUATED 

(R) NGASTB 

1063 

c 

C = GAS THERMAL CONDUCTIVITY (BTU/ (HR*FT*R) ) 


NGASTB 

1066 

C 

CP = GAS SPECIFIC HEAT (BTD/(LBM*B) ) 



NGASTB 

1067 

C 

GAM = RATIO OF SPECIFIC HEATS 



NGASTB 

1068 

c 

PD = PRANDTL NUMBER 



NGASTB 

1069 

c 

R = SPECIFIC GAS CONSTANT (FT*LBF) / (LBM*R) 


NGASTB 

1070 

c 

XMU = VISCOSITY (LBH/ (FT*HR) ) 



NGASTB 

1071 

c 




NGASTB 

1072 


COMMON /GAAS/ GS(200),NG 



NGASTB 

1073 


DIMENSION AC{5) 



NGASTB 

1074 

c 




NGASTB 

1075 


TMP1=TMP - 460. 



NGASTB 

1076 


IF(TMP1.GT.GS(1)) GO TO 200 



NGASTB 

1077 

100 

AP1=0.0 



NGASTB 

1078 


AP2=1.0 



NGASTB 

1079 


11=2 



NGASTB 

1080 
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12=1 

NGASTB 

1081 


GO TO 500 

NGASTB 

1082 

200 

DO 300 1=1, NG 

NGASTB 

1083 


11=1 

NGASTB 

1084 


IF(GS(I) .GT.THP1) GO TO 400 

NGASTB 

1085 

300 

CONTINUE 

NGASTB 

1086 


TMP1=GS (NG) 

NGASTB 

1087 

400 

12=11-1 

NGASTB 

1088 


AP1= (THP1-GS(I2))/{GS(I1)-GS(I2) ) 

NGASTB 

1089 


AP2=1.0-AP1 

NGASTB 

1090 

500 

DO 600 J=1,4 

NGASTB 

1091 


I1=I1+NG 

NGASTB 

1092 


I2=I2+NG 

NGASTB 

1093 

600 

AC(J) =AP1*GS(I1) +AP2*GS (12) 

NGASTB 

1094 


AC (5) =1.0/(1.0-E/ (778. 2* AC (2) ) ) 

NGASTB 

1095 


C=AC (1) 

NGASTB 

1096 


CP=AC (2) 

NGASTB 

1097 


PD=AC(3) 

NGASTB 

1098 


XMU=AC (4) 

NGASTB 

1099 


GAH=AC(5) 

NGASTB 

1100 


BETOEN 

NGASTB 

1101 


END 

NGASTB 

1102 


C- 

SOURCE. NGAUS 

NGAUS 

1103 


SUBROUTINE GAUSS (N,K) 

NGAUS 

1104 

C 


NGAUS 

1105 

C- 

SOURCE. NGAUS 

NGAUS 

1106 

c 


NGAUS 

1107 

c- 

GIVEN A COHPHESSED VERSION OF AN AUGMENTED, BAND MATRIX A 

NGAUS 

1108 

c- 

HERE K IS THE WIDTH OF THE BAND, N IS THE NUMBER OF RONS (MAX 

400) NGA US 

1109 

c- 

DIAGONAL ELEMENTS OF THE ORIGINAL MATRIX ABE STORED IN 

NGAUS 

1110 

c- 

COLUMN ((K/2)+1) — TCOF(I, ( (K/2) +1) ) 

NGAUS 

1111 

c- 

THE ORIGINAL RIGHT HAND SIDE IS IN COLUMN K+ 1 TCOF(I,K+1) 

NGAUS 

1112 

c- 

GAUSS ELIMINATION IS USED TO MAKE ALL ELEMENTS BELOW 

NGAUS 

1113 

c- 

THE DIAGONAL ZERO. 

NGAUS 

1114 

c- 

BACK-SUBSTITUTION IS USED TO COMPUTE THE X»S, WHICH ARE 

NGAUS 

1115 

c- 

RETURNED IN TCOF(I,K+1) 

NGAUS 

1116 

c 


NGAUS 

1117 


REAL*8 TCOF 

NGAUS 

1118 


COMMON /MATRX/ TCOF (400, 30) 

NGAUS 

1119 


IWE = 0 

NGAUS 

1120 


NEOW = 0 

NGAUS 

1121 


IF (IWR.EQ.O) GO TO 63 

NGAUS 

1122 

c 


NGAUS 

1123 

c 

DEBUGGING OUTPUT; 

NGAUS 

1124 

c 


NGAUS 

1125 

c 

IWE CAN BE SET DTNAMICALLT IN ORDER TO GET DEBUG OUTPUT OF 

NGAUS 

1126 

c 

SELECTED ROWS OF THE MATRIX, BEFORE OR AFTER REDUCTION. 

NGAUS 

1127 

c 


NGAUS 

1128 


WRITE(8,57) 

NGA US 

1129 

57 

FORMAT (• ENTER NUMBER OF ROW TO BE DISPLATED. USE 13 FORMAT') 

NGAUS 

1130 

58 

READ (7,59) NEOW 

NGAUS 

1131 

59 

FORMAT (13) 

NGAUS 

1132 


IF (NEOW.EQ.O) GO TO 63 

NGAUS 

1133 


KP = K+1 

NGA US 

1134 


WRITE(8,60) NROW 

NGAUS 

1135 


WRITE (8,61) (I, TCOF (NROW, I) ,1=1 , KP) 

NGAUS 

1136 

60 

FORMAT (/• TCOF MATRIX, ROW NO. *,I3) 

NGAUS 

1137 

61 

FORMAT (5 (• (• ,13,', *,D 17.10, •)•) ) 

NGAUS 

1138 


WRITE (8,62) 

NGA US 

1139 

62 

FORMAT (/• ENTER ANOTHER ROW NO. OR 000 TO CONTINUE PROCESSING* 

) NGAUS 

1140 
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60 TO 58 

NGAOS 

1141 

c 


NGADS 

1142 

c 


NGAOS 

1143 

63 

CONTIHOE 

NGAUS 

1144 

65 

JPIT = K/2 + 1 

NGAUS 

1145 


m = N-1 

NGAUS 

1146 


DO 100 I = 1,N1 

NGA US 

1147 


JS = 1+1 

NGAUS 

1148 


JF = I + K/2 

NGAUS 

1149 


IF (JF.GT.N) JF = N 

NGAUS 

1150 


PIVOT = TCOF(I,JPIV) 

NGAUS 

1151 


IF (PIVOT. EQ. 0.0) GO TO 130 

NGAUS 

1152 


DO 90 J = JS,JF 

NGAUS 

1153 


JR = JPIV-J+I 

NGAOS 

1154 


IF (DABS(TCOF(J,JE) ) .LT. 1.0D-30) GO TO 90 

NGAUS 

1155 


FH = TCOF (J,JB) /PIVOT 

NGAUS 

1156 


TC0F(J,JE) = 0.0 

NGAUS 

1157 


LS = JR + 1 

NGAUS 

1158 


LF = LS + K/2 

NGAUS 

1159 


IF (LF.LT.LS) GO TO 85 

NGAUS 

1160 


DO 80 L = LS,LF 

NGAUS 

1161 


LR = L+JPIV+1-LS 

NGAOS 

1162 


IF (LR.GT.K) GO TO 85 

NGAUS 

1 163 

80 

TCOF(J,L) = TCOF(J,L) - FM+TCOF (I, LR) 

NGAUS 

1164 

85 

TCOF(J,K+1) = TCOF(J,K+1) - FM*TCOF (I , K+ 1 ) 

NGAUS 

1165 

90 

CONTINUE 

NGAUS 

1166 

100 

CONTINUE 

NGAUS 

1167 

C 


NGAUS 

1168 

c 


NGAUS 

1169 

155 

IF (IBR.EQ.O) GO TO 163 

NGAUS 

1170 

C 


NGAUS 

1171 

c 

DEBUGGING OUTPUT: 

NGAUS 

1172 

c 


NGAUS 

1173 


WRITE (8,57) 

NGAUS 

1174 

158 

READ(7,59) NROW 

NGAUS 

1175 


IF (NROW.EQ.O) GO TO 163 

NGA US 

1176 


KP = K+1 

NGAUS 

1177 


WRITE (8,60) NROW 

NGAUS 

1178 


WRITE(8,61) (I,TCOF(NROW,I) ,I=1,KP) 

NGAUS 

1179 


WRITE (8,62) 

NGAUS 

1180 


GO TO 158 

NGAUS 

1181 

C 


NGAUS 

1182 

C 


NGAUS 

1183 

163 

CONTINUE 

NGAUS 

1184 


TCOF(N,K+1) = TCOF (N, K+1 )/TCOF (N,JPIV) 

NGAUS 

1185 


DO 120 I = 1,N1 

NGAUS 

1186 


IIN = N-I 

NGAUS 

1187 


JF = K/2 

NGAUS 

1188 


SUM = TCOF(IIN,K+1) 

NGAUS 

1189 


DO 115 J = 1,JF 

NGAUS 

1190 


JP = J + JPIV 

NGAUS 

1191 


IJ = J+IIN 

NGAUS 

1192 


IF (IJ.GT.N) GO TO 117 

NGAUS 

1193 

115 

SUM = SUM - TCOF(IJ,K+1) *TCOF(IIN,JP) 

NGAUS 

1194 

117 

CONTINUE 

NGAUS 

1195 

120 

TCOF (IIN, K+ 1) = SUM/TCOF(IIN,JPIV) 

NGAUS 

1196 

125 

CONTINUE 

NGAUS 

1157 


RETURN 

NGAUS 

1198 

130 

WRITE (7,135) I 

NGA US 

1199 

135 

FORMAT (/• DIAGONAL ELEMENT FOR ROW ',12,' IS ZERO. NO ', 

NGAUS 

1200 
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non 


Z 'FORTHEE ATTEMPT TO SOLVE WILL BE MADE.*) 

GO TO 125 
END 


NGAUS 

NGAUS 

NGAUS 


C 


SOURCE. NGETINT 
SUBROUTINE GETIN 


SOURCE. NGETINT 


COMMON /BOUND/ 


Z 

Z 

z 

z 

z 

z 


BCXS (400) ^ 
BCTGS (1000) , 
BCPGS (1000) , 
QHUBIN (400) , 
QTIPIN (400) , 
BCTIME(5C) , 
WSVST (50) , 


BCXP(400) , 
BCTGP (1 000) 
BCPGP(IOOO) 
QHUB (80) , 
QTIP (80) , 
TTIO (50) , 
AKCTBL (20) , 


BCHGS(IOOO) 
BCQGS (1000) , 
THUBIN (400) , 
TTIPIN(400) , 
EHOVG (400) , 
PTIO(50) , 
AKWTBL (20) , 


BCHGP (1000) 
BCQGP (1000) 
THUS (80) ^ 
TTIP(80) r 
PEX(400) , 
WPLEN, 

NBCS, NBCP 


NAMELIST /TITL/ TITLE 


NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
p NGETINT 
, NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 



COMMON 

/FLMCOL/ EHOVGA(80), PG(80), 

XFC (80) , 

FLMEFF (80) , 

NGETINT 


Z 

XMUC(80), EHES (80) , REFC (80) , 

NFCSOP (80) 

NGETINT 

c 






NGETINT 


COMMON 

/IMPCOR/ CI«P1, 

CIMP2, CIMP3 

, CIMP4, CIMP5, CIBP6, CIHP7, 

NGETINT 


Z 

DIMP 1, 

DIMP2, DIMP3 

, DIMP4, DIMP5, DIMP6 

NGETINT 

c 






NGETINT 


COMMON 

/RADL/ APLN (15) , 

DPLN ( 15) , 

RIN (15) , 

BOUT (15) , 

NGETINT 


Z 

PIN(15) , 

TIN (15) , 

W (15) , 

WS 

NGETINT 

c 






NGETINT 


COMMON 

/SPECL/ CHANL(8000), TITLE(30), INDCHN (2000) , 

NGETINT 


Z 

IPLOT, 

MD1, MD2, 

MD3, lADJIN 

, IHRITE 

NGETINT 

c 






NGETINT 


COMMON 

/TCO/ ADUHP, 

BTA, 

CD, 

CP, 

NGETINT 


Z 

GAM, 

PIM, 

R, 

SPAN, TOG, 

NGETINT 


z 

WDUMP, 

HIH, 

ARC (15,80) , 

AKW (15,80) , 

NGETINT 


z 

A (400) , 

AJET (80) , 

AM2 (80) , 

CNUM (80) , 

NGETINT 


z 

DH(80) , 

DHF (80) , 

DHJ (80) , 


NGETINT 


z 

DLX (400) , 

FF (80) , 

HC(80) , 

HG(80) , 

NGETINT 


z 

P(2, 15,80) 

,PEXIT(15) , 

PUMP (80) , 

QG(80) , 

NGETINT 


z 

Q5NK (80) , 

ER (80) , 

S (15) , 

T (2, 15,400) , 

NGETINT 


z 

TG (80) , 

TAU (400) , 

WFC (80) , 


NGETINT 


z 

WJ (15,80) , 

WCROS (2,15, 

80) , 

XN (80) , 

NGETINT 


z 

ICOR, 

IFILH, 

IHUB, 

ITIP, 

NGETINT 


z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE, 

NGETINT 


z 

NFWD, 

NSTA, 

IHC (80) 


NGETINT 

c 






NGETINT 


COMMON 

/TRNSNT/ RHOC, 

EHOH, 

SPHTC, 

SPHTM, 

NGETINT 


z 

DLTYME, 

TYHE, 

TEPS, 

TYMB AX 

NGETINT 

c 






NGETINT 


COMMON 

/UNITS/ CINCH (2) 

, CHTC(2) , 

CHFLX(2), CPESE(2), CnSFL(2), 

NGETINT 


Z 

CTMPF (2) 

, CTCON (2) , 

CDEN(2), CSPHT(2), CGASC(2), 

NGETINT 


z 

CVISC (2) 

, CRHOVG (2) , 

lUNITS 


NGETINT 

c 






NGETINT 


DIMENSION THK(3) , 

TDLX(5) , 

TFLBHL (10) 


NGETINT 


NGETINT 

NGETINT 

NGETINT 


NAMELIST 

/CHANLS/ 

NSLICE, 

NSTA, 

INEDIT, 

I PLOT, 

IWRITE, 


NGETINT 

Z 


MDI, 

HD2, 

MD3, 

lONITS, 

IFILM, 

lADJIN 

NGETINT 









NGETINT 

NAMELIST 

/BC/ 

N3CS, 

NBCP, 

BCXS, 

BCXP, 

BCHGS, 

BCHGP, 

NGETINT 

Z 


BCTGS, 

BCTGP, 

BCQGS, 

BCQGP, 

BCPGS, 

BCPGP, 

NGETINT 

2 


THUBIN, 

QHUBIN, 

TTIPIN, 

QTIPIN, 

RHOVG, 


NGETINT 

Z 


PEX, 

BCTIHE, 

TTIO, 

PTIO, 

HPLEN, 


NGETINT 


1201 

1202 

1203 


1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
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Ill II III I I iiiiiiiiiiiii mill III 


null II I INI 




z 

z 


WSVST, AKCTBLi 
SPHTC, SPHTMr 

NAMELIST /COtiTSt/ UFVD, ICOB, 

NAMELIST /PROPS/ CD^ SPAN, 

RI, CIMP1, 

CIMP6, CIMP7, 


2 

Z 

Z 


DIHP5, DIMP6 


NAMELIST /GEO/ 


DATA TIKLE/» 


ISTA, 

TDHF, 


ISTB, 

TRR, 


NGEO 

ADUMP, 

CIMP2, 

DIMP1, 


THK, 

IHCT, 


V 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BHOC, 

RHOM, 


NGETINT 

1261 

TEPS, 

TYMM AX 


NGETINT 

1262 




NGETINT 

1263 




NGETINT 

1264 




NGETINT 

1265 

0HYD, 

APLEN, 

RO, 

NGETINT 

1266 

CIMP3, 

CIMP4, 

CIMP5, 

NGETINT 

1267 

DIMP2, 

DIMP3, 

DIMP4, 

NGETINT 

1268 




NGETINT 

126 9 




NGETINT 

127 0 

TDLX, 

TDHJ, 

TXN, 

NGETINT 

1271 

TDP, 

TSP, 

TFLMHL 

NGETINT 

1272 




NGETINT 

127 3 




NGETINT 

1274 




NGETINT 

1275 


NSLICE 

IHUB 


= THE NO. OF SLICES OF THE BLADE THAT ARE BEING CONSIDERED 


NGETINT 


1 INDICATES A SPECIFIED TEMPERATURE DISTRIBUTION IS GIVEN ATNGETINT 


THE HUB END (F) 

2 INDICATES AN ADIABATIC SURFACE AT THE HUB END 

3 INDICATES HEAT FLUX IS SPECIFIED AT HUB END 
(BTU/HR FT**2 R) 


NGETINT 

NGETINT 

NGETINT 

NGETINT 


ITIP = 1 INDICATES A SPECIFIED TEMPERATURE DISTRIBUTION IS GIVEN ATNGETINT 
THE TIP END (F) NGETINT 

= 2 INDICATES AN ADIABATIC SURFACE AT THE TIP END NGETINT 

= 3 INDICATES HEAT FLUX IS SPECIFIED AT TIP END NGETINT 

(BTU/HR FT**2 R) NGETINT 

lADJiN = 0, MEANS TO HOLD PTIO CONSTANT AND ADJUST WPLEN; NGETINT 

> 0, MEANS TO FIX HPLEN AND ADJUST PTIO. NGETINT 

ISTA = FIRST STATION NUMBER FOE THIS DATA SET NGETINT 

IF ISTB IS SPECIFIED, IT IS THE LAST STATION NUMBER FOE THIS DATA SETNGETINT 
IF ISTB IS SPECIFIED, IT MOST BE EQUL TO ISTA + A MULTIPLE OF 2. NGETINT 

THK = (1) -COATING THICKNESS, (2) -METAL THICKNESS, AND (3) -CHANNEL NGETINT 

WIDTH. ALL IN INCHES. NGETINT 

TDLX = DISTANCE FROM UPSTREAM NODE (INCHES) NGETINT 

TDHJ = HYDRAULIC DIAMETER OF IMPINGEMENT JET HOLE (INCHES) - STORED NGETINT 

UNDER STATION NUMBER NGETINT 

TDHF = EFFECTIVE DIAMETER OF FILM COOLING HOLE IF PRESENT (INCHES) - NGETINT 

STORED UNDER STATION NUMBER NGETINT 

= DIAMETER OF ONE HOLE^SQRT (NO. OF HOLES AT THIS STATION IN THISNGETINT 
SLICE) NGETINT 

TXN = SPANWISE SPACING OF IMPINGEMENT JETS (INCHES) NGETINT 

TER = RADIAL LOCATION OF THIS STATION (INCHES) NGETINT 

IHCT INDICATES THE TYPE OF INSIDE HEAT TRANSFER AT THIS STATION, NGETINT 
= 1 FOR IMPINGEMENT WITH CROSSFLOW NGETINT 

= 2 FOR FORCED CONVECTION CHANNEL FLOW NGETINT 

= 3 FOR PIN FINS NGETINT 

TDP = THE PIN FIN DIAMETER (IN) IF PINS ARE USED; NGETINT 

TSP = THE PIN FIN SPACING (IN), ASSUMING AN EQUILATERAL TRIANGULAR NGETINT 

ARRAY OF PINS. NGETINT 

AKCTBL= TABLE OF CLADDING THERMAL CONDUCTIVITY (BTU/HR FT R) VS NGETINT 

TEMPERATURE (F) NGETINT 

AKWTBL= TABLE OF WALL METAL THERMAL CONDUCTIVITY (BTO/HE FT R) VS NGETINT 
TEMPERATURE (F) NGETINT 

RHOVG = HOT GAS FREE STREAM MASS VELOCITY, DENS ITY*VELOCIT Y, FOR FILMNGETINT 
COOLING USE, AT EACH FILM COOLING STATION. NGETINT 

INPUT IN (LBM/SEC FT**2) , OR (KG/SEC M^*2) IF IUNITS=1 NGETINT 

EHOC = DENSITY OF OUTER COATING (LBM/FT**3) NGETINT 

RHOM = DENSITY OF HALL METAL (LBM/FT**3) NGETINT 

SPHTC = SPECIFIC HEAT OF COATING (BTU/LBM R) NGETINT 

SPHTM = SPECIFIC HEAT OF WALL METAL NGETINT 
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1301 

1302 

1303 

1304 
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n n 


DLTTME = TIME STEP SIZE FOR TRANSIENT CALCULATIONS (SEC) NGETINT 
TIMMAX = MAX. TIME (SEC) TO BHICH TRANSIENT IS CARRIED. NGETINT 
TEPS = FRACTION OF TIME STEP AT WHICH TEMP. IS EVALUATED. ( NEW = OLDNGETINT 


+ TEPS* (NEW-OLD) ) NGETINT 

WSVST = TABLE OF WHEEL SPEED VS TIMEr (RPM VS SEC) ^ ODD SUBSCRIPTS NGETINT 
ARE SPEED, EVEN ARE TIME, WSVST(2)=0.0 NGETINT 

NGETINT 

CIMP1 TO CIMP5 ARE EXPONENTS TO BE USED IN A GENERAL NGETINT 

IMPINGEMENT WITH CROSSFLOW CORRELATION. IF NOT SPECIFIED, THEN THENGETINT 


BUILT IN KIRCHER-TABAKOFF CORRELATION IS USED. NGETINT 

SEE SUBROUTINE HCOOLT FOR DESCRIPTION OF GENERAL CORRELATION. NGETINT 

NGETINT 

INITIALIZE: NGETINT 

NGETINT 

0 CONTINUE NGETINT 

lEND = 0 NGETINT 

lADJIN = 0 NGETINT 

IHUB = 2 NGETINT 

ITIP = 2 NGETINT 

CIMP1 = 0.0 NGETINT 

DIMP1 = 0.0 NGETINT 

ADUMP = 0.0 NGETINT 

IFILM = 0 NGETINT 

lUNITS = 2 NGETINT 

ALPHA = .04 NGETINT 

BETA ^ 16 NGETINT 

DELTA = 16. NGETINT 

EPS = -1. NGETINT 

CD = .8 NGETINT 

NGETINT 

GAS CONSTANT FOR AIR, FT LBF/LBM R NGETINT 

R = 53.35 NGETINT 

NGETINT 

- SET VALUES FOR UNITS CORRECTION FACTORS NGETINT 

- ...(1) CONVERTS FROM SI TO ENGLISH, ...(2) MAKES NO CONVERSION-- NGETINT 

ALREADY IN ENGLISH NGETINT 

NGETINT 

-- CINCH(I) IS CONVERSION FACTOR FROM (CM) TO (IN) NGETINT 

CINCH(I) = .39370 NGETINT 

CINCH (2) = 1.0 NGETINT 

-- CHTC(1) IS CONVERSION FACTOR FROM (WATTS/M**2 K) TO (BTU/HR FT**2R) NGETINT 
CHTC(1) = .17623 NGETINT 

CHTC (2) = 1.0 NGETINT 

-- CHFLX(I) IS CONVERSION FACTOR FROM (WATTS/M**2) TO (BTU/HR FT**2) NGETINT 

CHFLX(I) = .31721 NGETINT 

CHFLX(2) = 1.0 NGETINT 

-- CPRSR(I) IS CONVERSION FACTOR FROM ( KILO PASCALS) TO (PSIA) NGETINT 

CPRSR (1) = .14503 NGETINT 

CPRSR (2) = 1.0 NGETINT 

-- CMSFL(I) IS CONVERSION FACTOR FROM (KG/HR) TO (LBM/HR) NGETINT 

CMSFL(I) = 2.67924 NGETINT 

CMSFL(2) = 1.0 NGETINT 

-- CTMPF(I) IS CONVERSION FACTOR FROM (K) TO (R) NGETINT 

CTMPF (1) = 1.8 NGETINT 

CTMPF(2) = 1.0 NGETINT 

-- CTCON(I) IS CONVERSION FACTOR FROM (WATTS/M K) TO (BTU/HR FT R) NGETINT 

CTCON(I) = .57817 NGETINT 

CTCON(2) =1.0 NGETINT 

-- CDEN(1) IS CONVERSION FACTOR FROM (KG/N**3) TO (LBM/FT**3) NGETINT 

CDEN(1) = ,06243 NGETINT 


NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 

NGETINT 
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CDEM(2) =1.0 

C CSPHT(I) IS CONVEESION FACTOR FROH (J/KG K) TO (BTO/LBH B) 

CSPHT(I) = .000239 
CSPHT(2) =1.0 

C CVISC(I) IS CONVERSION FACTOR FROH (PA SEC) TO (LBM/FT HE) 

CVISC(I) = 2419.096 
CVISC(2) = 1.0 

C CGASC(I) IS CONVERSION FROH (J/KG K) TO (FT LBF/LBH R) 

CGASC(I) = .18602 
CGASC(2) = 1.0 

C CRHOVG IS CONVERSION FROH (KG/SEC H**2) TO (LBH/SEC FT**2) 

CRHOVG(I) = .0204823 
CRH0VG(2) = 1.0 
C 

DO 105 I = 1,30 

105 TITLE (I) = TIKLB 

C 

DO 106 I = 1,1000 
BCHGS(I) =0.0 
BCHGP(I) =0.0 
BCTGS(I) =0.0 
BCTGP(I) =0.0 
BCQGS(I) = 0.0 
BCQGP(I) =0.0 
BCPGS (I) =0.0 

106 BCPGP(I) = 0.0 

RHOC = 0,0 
RHOM =0.0 
SphTC = 0.0 
SPHTH = 0.0 

DO 107 I = 1,400 
THUBIN(I) = 0.0 
QHOBIN(I) = 0.0 
TTIPIN(I) = 0.0 
QTIPIN(I) = O.C 
RHOVG(I) =0.0 

107 PEX(I) = 0.0 

DO 108 I = 1,50 

BCTIHE(I) = 0.0 
TTIO(I) = 0.0 
PTIO(I) = 0.0 
WSVST(I) =0.0 

108 RR(I) = 0.0 
C 

DO 110 I = 1,6000 
110 CHANL(I) =0.0 

C 

DO 1121= 1, 15 
PEXIT(I) = 0.0 
DO 112 J = 1,80 
AKC(I,J) = 0.0 
112 AKW (I, J) =0.0 

C 

DO 115 I = 1,2000 

115 INDCHN(I) = 0 

DO 116 I = 1,20 
AKCTBL(I) = 0.0 

116 AKHTBL(I) = 0.0 

IPLOT = 0 
IWBITE = 0 


NGETINT 

1381 

NGETINT 

1382 

NGETINT 

1383 

NGETINT 

1384 

NGETINT 

1385 

NGETINT 

1386 

NGETINT 

1387 

NGETINT 

1388 

NGETINT 

1389 

NGETINT 

1390 

NGETINT 

1391 

NGETINT 

1392 

NGETINT 

1393 

NGETINT 

1394 

NGETINT 

1395 

NGETINT 

1396 

NGETINT 

1397 

NGETINT 

1398 

NGETINT 

1399 

NGETINT 

1400 

NGETINT 

1401 

NGETINT 

1402 

NGETINT 

1403 

NGETINT 

1404 

NGETINT 

1405 

NGETINT 

1406 

NGETINT 

1407 

NGETINT 

1408 

NGETINT 

1409 

NGETINT 

141C 

NGETINT 

1411 

NGETINT 

1412 

NGETINT 

1413 

NGETINT 

1414 

NGETINT 

1415 

NGETINT 

1416 

NGETINT 

1417 

NGETINT 

1418 

NGETINT 

14 19 

NGETINT 

1420 

NGETINT 

1421 

NGETINT 

U22 

NGETINT 

1423 

NGETINT 

1424 

NGETINT 

1425 

NGETINT 

1426 

NGETINT 

1427 

NGETINT 

1428 

NGETINT 

1429 

NGETINT 

1430 

NGETINT 

1431 

NGETINT 

1432 

NGETINT 

1433 

NGETINT 

1434 

NGETINT 

1435 

NGETINT 

1436 

NGETINT 

1437 

NGETINT 

1438 

NGETINT 

1439 

NGETINT 

1440 
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no non on no non 


INEDIT = 0 
TEPS = 1.0 
DLTYWE = 0.0 
READ (SrTITL) 

READ (5, CHANLS) 

READ (5,BC) 

IF (BCHGS (1) . EQ.0.0) BTA=1.0 

IF (BCQGS(I) .EQ.0.0) BTA = C.O 
IF (TTIPIN (1) .GT.0.0) ITIP = 1 
IF <THUBIN{1) .GT.0.0) IHOB = 1 
I? (ABS(QTIPIN(1)) .GT.0.0) ITIP 
IF (ABS (QHUBIN (1) ) .GT.0.0) IHUB 
HS = WSVST (1) 


= 3 
= 3 


PEXIT(I) = PEX(1) 

DO 175 ICHLNO = 1,NSLICE 

ICHLNO IS THE CHANNEL NUMBER; = 1 AT THE HUB, 


NSLICE AT THE TIP 


READ (5,CONTRL) 
NODSF = 5*NFWD 
-NOnSF IS THE NUMBER 


OF NODES IN THE FORWARD REGION 


NODST 
--NODST IS 


= 5*NSTA 
THE TOTAL 


NUMBER CF NODES IN THE BLADE SLICE ICHLNO 


NBLKSZ = (15 + 2*NODST) 8*NSTA 
--WBLKS7 IS THE SIZE OP THE DATA BLOCK 
SLICE ICHLNO 


RESERVED IN CHANL ARRAY FOR 


ISBLOK = lEND + 1 

--ISBLOK IS THE STARTING POINT IN CHANL ARRAY FOR THIS BLOCK OF DATA 

INSTRT = 15 + (ICHLNO-1)*(15 + NSTA) 

C — INSTRT IS THE STARTING POINT IN INDCHN ARRAY FOR THIS BLOCK OF 
C INTEGER DATA 
C 

INDCHN(ICHLNO) = INSTRT 
INDCHN (INSTRT) = ICHLNO 
INDCHN (INSTRT+1) = I FILM 
INDCHN (INSTRT +2) = ICOB 

INDCHN (INSTET+3) = NFWD 
INDCHN (INSTRT+4) = NSTA 
INDCHN (INSTRT +5) = ISBLOK 

INDCHN (INSTRT+6) = NBLKSZ 
INDCHN (INSTRT+7) = IPLOT 
INDCHN (INSTRT+8) = MD1 
INDCHN (INSTRT+9) = MD2 
INDCHN (INSTRT +10) = MD3 
INDCHN (INSTRT+12) = IHUB 
INDCHN (INSTRT +13) = ITIP 
IIHCTZ = INSTRT + 14 

C — IIHCTZ IS THE RELATIVE ZERO POINT IN INDCHN FOR STORAGE OF THE 
C INDICATOR IHC 

READ (5, PROPS) 

S (ICHLNO) = SPAN+CINCH (lUNITS) 

APLN (ICHLNO) = APLEN*CINCH (lUNITS) ♦CINCH (lUNITS) 

DPLN (ICHLNO) = DHYD*CINCH (lUNITS ) 

ROUT (ICHLNO) = RO*CINCH (lUNITS) 

RIN (ICHLNO) = RI+CINCH (lUNITS) 


NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
THISNGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
NGETINT 
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1471 
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non 



c 

C NOW, /GEO/ IS READ, NGEO TIMES, AND THE DATA STORED IN CHANL ARRAY. 

C 

C 

C ISBLOK = THE STARTING POINT IN CHANL ARRAY FOR CHANNEL ICHLNO DATA 
C 

C FIRST, STORE THE SINGLE VALUED DATA 
C 

CHANL (ISBLOK) = CD 
CHANL (ISBLOK+ 1) = ALPHA 

CHANL (ISBLOK+2) = BETA 
CHANL (lSBLOK + 3) = DELTA 

CHANL (ISBLOK+4) = EPS 

CHANL (ISBLOK + 6) = ADUMP*CINCH (lUNITS) **2 
CHANL (lSBLOK+7) = SP AN*CINCH ( ION ITS) 

CHANL (ISBLOK+8) = BTA 
CHANL (ISBLOK+9) = DLTYHE 
CHANL (ISBLOK+10) = TEPS 
C 

C THEN THE ARRAYS ARE STORED; 

C 

C THE FOLLOWING ARE STORED BY NODE NUMBER: 

C THK (TAU) , TDLX (DLX) 

C THE REST ARE STORED BY STATION NUMBER; 

C TDHJ (DHJ) , TDHF (DHF) , TXN (XN) , TRR (RR) , 

C TDP (DP) , TSP (SP) , 

C (AKC),(AKH), IHCT (IHC) . 

C 

ITHKZ = ISBLOK + 14 

ITDLXZ = ISBLOK + 14 + NODST 

ITDHJZ = ISBLOK + 14 + 2*NODST 

ITDHFZ = ISBLOK + 14 + 2*NODST + NSTA 

ITXNZ = ISBLOK + 14 + 2*NODST + 2*NSTA 

ITRRZ = ISBLOK + 14 + 2*NODST + S^NSTA 

ITDPZ = ISBLOK + 14 + 2*NODST + 4*NSTA 

ITSPZ = ISBLOK + 14 + 2*NODST ♦ 5*NSTA 

lEND = ISBLOK ♦ 14 + 2*NODST + 8*NSTA 

THK (1) = 0.0 

DO 170 I = 1,NGEO 

ISTB = 0 

READ (5, GEO) 

IF (THK (1) . LE. 0.0) THK(1) = .0001*THK(2) 

IF (TDLX(1) .GT.2.0*TDLX(4) .OR. TDLX (4) .GT. 1. 2*TDLX (1)) 

Z WRITE (8, 136) ICHLNO, ISTA 

136 FORMAT(/' CHANNEL ',12,', STATION *,I3, 

Z *, TDLX VALUES DO NOT LOOK RIGHT') 

IF (TDHJ. GT.O. .AND.TXN.lt. 1. 1*TDHJ) WRITE(8,137) ICHLNO, ISTA 

137 FORMAT(/» CHANNEL ',12,', STATION ',13, 

Z ', HOLE SPACING AND DIAMETER DO NOT LOOK RIGHT') 

IF (ISTB.EQ.O) ISTB = ISTA 
DO 165 J = ISTA, ISTB, 2 

J REPRESENTS THE STATION NUMBER IN THIS CASE 

JSENS = J - 2*(J/2) 

C 

C JSENS = 0 INDICATES THAT STATION NO. IS EVEN AND STATION IS ON 
C SUCTION SIDE 

C JSENS = 1 INDICATES THAT STATION NO. IS ODD AND STATION IS ON 
C PRESSURE SIDE 
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uuu fNCNO (NU 


I 

i: 


c 

lAEG = ITDHJZ + J 

CHANL (lAHG) = TDHJ^CINCH (lONITS) 

lAEG = ITDHFZ ♦ J 

CHANL (lAEG) = TDHF*CINCH(IUNITS) 

lAEG = ITXNZ + J 

CHANL (lABG) = TXN*CINCH (lONITS) 

lAEG = ITERZ + J 

CHANL (lARG) = TRE*CINCH (lONITS) 
lAEG = ITDPZ + J 

CHANL (lARG) = TDP*CINCH (lUNITS) 
lARG = ITSPZ ♦ J 

CHANL (lARG) = TSP»CI NCH ( lONITS) 
lAEG = IIHCTZ ♦ J 
INDCHN(IAEG) = IHCT 
NODOUT = 5*J - 4 
C 

C NODODT IS THE NODE NO. ON THE OOTSIDE SURFACE AT STATION J 
C 5 IS THE NUMBER OF NODES AT STATION J 
C 

145 CONTINUE 

LOCA = ITDLXZ + NODOUT 
IF (TDLX(3) .LE.O.) GO TO 155 
DO 150 L = 1,5 
LOCAL = LOCA + L - 1 

150 CHANL (LOCAL) = TDLX (L) *CINCH (lUNITS) 

GO TO 160 

155 CHANL(LOCA) = TDLX (1 ) *C INC H (lUNITS ) 

CHANL (LOCA+3) = TDLX (4) ♦CINCH (lUNITS) 

AA = TDLX(1) 

B = (TDLX (4) -TDLX (1 ) )/ (THK (1) +THK (2) ) 

CHANL (LOCA+ 1) = (AA + B^THK ( 1) ) *CINCH (lUNITS) 

CHANL (LOCA + 2) = (AA + B^ (TH K ( 1 ) <-THK (2) /2. ) ) *CINCH (lUNITS) 

CHANL (LOCA + 4) = (AA + B* (THK ( 1) +THK (2) +THK (3) /2 . ) ) ♦CINCH (I UNITS) 
160 CONTINUE 

LOCA = ITHKZ + NODOUT 
CHANL(LOCA) = THK ( 1) ♦CINCH ( lUNITS) 

CHANL (LOCA + 2) = THK (2 ) ♦CINC H (lU N ITS ) 

CHANL (LOCA + 4) = THK (3) ♦C INC H (ION ITS) 

165 CONTINUE 
170 CONTINUE 
175 CONTINUE 

CONVERT UNITS ON BC DATA 

IF (lUNITS. EQ. 2) GO TO 300 
NTBC = 1 
DO 205 I = 2,50 

IF (BCTIME(I) .LE.0.0) GO TO 210 
05 NTBC = NTBC + 1 
10 NSETS = NBCS^NSLICE^NTBC 
NSETP = NBCP^NSLICE^NTBC 

DO 215 I = 1, NSETS 
ECXS(I) = BCXS (I)^CINCH (1) 

BCHGS(I) = BCHGS(I)*CHTC(1) 

BCTGS(I) = BCTGS (I) ♦CTBPF(I) - 460. 

BCQGS (I) = BCQGS (I) ♦CHFLX (1 ) 

15 BCPGS(I) = BCPGS (I) ♦CPRSE ( 1) 
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DO 220 I = 1,NSETP 
6CXP(1) = BCXP(1)*CINCH(1) 

BCHGP(I) = BCHGP(I) *CHTC(1) 

BCTGP(I) = BCTGP (1)*CTMPF(1) - -460. 
BCQGP(I) = BCQGP(I) *CHFLX(1) 

220 BCPGP(I) = BCPGP(I)*CPESH(1) 

C 

NSET = NSTA*NTBC 

DO 225 I = 1,NSET 

RHOVG(I) = RHOVG(I) *CBHO?G(1) 

THOBIN(I) = THUBIH(I)*CTBPF (1) - 460. 
QHOBIN(l) = QHOBIN(I) *CHFLX (1) 

TTIPIN(I) = TTIPIN (I) *CTBPF (1) - 460. 

225 QTIPIN(I) = QTIPIN (I)*CHFLX (1) 

C 

NSET = NSLICE*NTBC 
DO 230 I = 1,NSET 

230 PEX(I) = PEX(I)*CPRSR (lONlTS) 

C 

DO 235 I = 1,49,2 

TTIO(I) = TTIO (I)*CTBPF (lONITS) - 460. 

235 PTIO(I) = PTIO(I) *CPRSR(IUNITS) 

WPLEN = HPLEN*CBSFL(IUNITS) 

EHOC = RHOC*CDEN (lONITS) 

RHOB = RHOB*CDEN (lUNITS) 

SPHTC = SPHTC*CSPHT (lUNITS) 

SPHTB = SPHTM*CSPHT(IUNITS) 

C 

DO 280 1 = 1, 19,2 

AKCTBL(I) = AKCTBL(I)*CTBPF (lONITS) - 460. 
AKCTBL(I+1) = AKCTBL (I+1)*CTCON (lUNITS) 
AKHTBL(I) = AKWTBL(I) *CTBPF(IUNITS) - 460. 
280 AKHTBL(I + 1) = AKBTBL (1 + 1 )*CTCON (lUNITS) 

C 

300 CONTINDE 

C 

C 

IF (IFIIB.NE. 2) GO TO 320 
DO 310 I = 1,NSTA 
310 RHOVGA(I) = RHOVG(I) 

C 

320 CONTINUE 

c 

C IF INEDIT .GT. 0, PRINT AN INPUT EDIT 
C 

DO 180 I = 1,NSLICE 
160 CALL INPRT (I, INEDIT) 

185 CONTINUE 
RETURN 
END 
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C SOURCE. NHCFHCT 

FUNCTION HCFECC (IS,LCOOL,LIN) 


C 

C- SOURCE. NHCFBCT 

C 

COMBON /TCO/ ADUfiP, 

Z GAB, 

Z NDUBP, 

Z A (4 00), 

Z DH(80), 


BTA, 

PIN, 

WIB, 

AJET (80) , 
DBF (80) , 


CD, CP, 

R, SPAN, 

AKC(15,80), AKW (15,80) 
AB2 (80) , CNUB (80) , 

DHJ (80) , 
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NHCFECT 1678 
NHCFECT 1679 
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z 

z 

z 

z 

z 

z 

z 

z 


DLX (400) r 
P (2,15,80) 
QSNK (80) , 
TG (80) , 
WJ(15,80) , 
ICOP, 
ISBLOK, 

NF WD, 


FF(80) , 
,PEXIT (15) , 
RP (80) , 

TAU (400) , 
WCPOS (2, 15 
IFILM, 
ISLICE, 

NST A, 


HC (80) , 
PUMP(80) , 
S(15) , 

WFC (80) , 
80) , 

IHUB, 
NBLKSZ, 
IHC (80) 


HG (80) , 
QG(80) , 
T(2,15,400) , 

XN (80) , 

IT IP, 

NSLICE, 


C 

C COMPUTE TURBULENT HEAT TRANSFER COEFFICIENT IN CHANNEL FLOW: 

C NU = .023* ( RE^*.8 )*( PD**. 333 ) 

C 

ICC CONTINUE 

TMP = (T (2, ISLICE, LCOOL) * T ( 2, I SLIC E , LIN) ) /2 . 

CALL GASTBL (T MP , C , CP , G A » , PD , R , X «U ) 

RE = 12. *3600 .*ABS(WCROS (2, ISLICE, IS) ) *DH (IS)/(A (LCOOL) *XMU) 
HCFRCD = . 023*12. *(C/DH(IS) ) *(RE**. 8) *(PD**. 333) 

200 CONTINUE 
RETURN 
END 
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C 

c- 

c 

c 


c 

c- 

c- 


SOURCE. NHCOOLT 
SUBROUTINE HCOOL(JS) 

SOURCE. NHCOOLT 




NHCOOLT 

NHCOOLT 

NHCOOLT 

NHCOOLT 

NHCOOLT 

NHCOOLT 

1701 

1702 

1703 

1704 

1705 

1706 

COMMON 

/IMPCOR/ CIMPI , 

CIHP2, CIMP3 

, CIBP4, CIHP5, CIHP6, CIMP7, 

NHCOOLT 

1707 

Z 

DIMP1 , 

DIMP2, DIHP3 

, DIBP4, DIBP5, DIMP6 

NHCOOLT 

NHCOOLT 

1708 

1709 

COMMON 

/PRPS/ CPO, 

GAMO, 

DP (80) , 

SP (80) , EE (80) , 

NHCOOLT 

1710 

z 

CPC (80) , 

GAMC (80) , 

D0MB1 (80) , 

DUMB2 (80) 

NHCOOLT 

NHCOOLT 

1711 

1712 

COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 

NHCOOLT 

1713 

Z 

GAM, 

Pin , 

E, 

SPAN, TOG, 

NHCOOLT 

1714 

Z 

WDUHP, 

WI« , 

AKC (15,80) 

, AKH (15,80) , 

NHCOOLT 

1715 

Z 

A (400) , 

AJET(80) , 

AM2 (80) , 

CNOM (80) , 

NHCOOLT 

1716 

Z 

DH (80) , 

DHF (80) , 

DHJ (80) , 


NHCOOLT 

1717 

Z 

DLX (400) , 

FF (80) , 

HC (80) , 

HG (80) . 

NHCOOLT 

1718 

Z 

P(2,15,80) 

,PEXIT (1 5) , 

POMP(80) , 

QG(80) , 

NHCOOLT 

1719 

Z 

QSNK (80) , 

EE (80) , 

S(15) , 

T(2,15,400) , 

NHCOOLT 

1720 

Z 

TG (80) , 

TAU (400) , 

HFC (80) , 


NHCOOLT 

1721 

Z 

HJ (15,80) , 

WCEOS (2,15, 

80) , 

XN (80) , 

NHCOOLT 

1722 

z 

ICOE, 

IFILM, 

IHUB, 

IT IP, 

NHCOOLT 

1723 

z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE , 

NHCOOLT 

1724 

z 

VFHD, 

NSTA, 

IHC (80) 


NHCOOLT 

NHCOOLT 

1725 

1726 


IGG (80) , IRE (80), REJ(80), REJOVE(80) 


DIMENSION 
CONTINUE 
TMP=T0G 

CALL GASTBL (TMP ,C ,CP ,G A W, PD, R, XMU) 

CONDCT = C 

XMUTOG = XMU 

PDTOG = PD 

PI=3. 14159 

IF (JS. GT. 1) GO TO 101 
IF (ICOR.EQ.1) GO TO 101 
IF (WJ (ISLICE, JS) .LE.0.0) 


LEADING EDGE HEAT TRANSFER 
CORRELATION OF METZGER ET 


NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 
NHCOOLT 

CORRELATION FOR STATIONS FORWARD OF ICORNHCOOLT 
AL, J. ENG. POWER, JULY 1969, PP 149-158 NHCOOLT 


GO TO 101 


1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 
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n n n n 


c 

5 NEND=IC0fi+1 

XS = 0.0 
XP = 0.0 

DO 50 J = 3,NEBD,2 
LINS = 5* (J-1 ) - 1 
LINP = 5*J - 1 
XS = XS ♦ DLX (LINS) 

XP = XP + DLX (LINP) 

50 CONTINUE 

55 XL = (XS + XP)/2. 

IF (AJET (JS) . GT. 0.) G1ASS = W J ( I SLICE, JS) /A JET ( JS) 

60 BES = PI*DHJ(JS)**2/(4.*XN(JS)) 

DEH = 2.*BES 

65 FEJ (JS) = 12.*3600.*GHASS*DEH/XNU 

PROD = REJ (JS) **.27* (XL/BES) **. 52 
70 STANMX = .355/PROD 

HC(JS) = STANMX*CP*GHASS*144. *3600. 

C 

IF (REJ(JS) .LT. 1150. .OR. REJ(JS) .GT. 6300.) WRITE(6,75) REJ(JS) 

75 F0RNAT(1H /'***WARNING*** LEADING EDGE IMPINGEMENT JEI REYNOLDS • 
Z 'NUMBER IS *,Fe.1/' RANGE OF THE CORRELATION IS 1150',- 

Z • < REJ < 6300') 

ILEAD = ICOR - 1 
IF (ILEAD.lt. 2) GO TO 85 
DO 80 I = 2, ILEAD 
IF(HJ (ISLICE, I) .GT.0.0) GO TO 90 
80 HC(I) = HC(JS) 

85 CONTINUE 

GO TO 101 

90 WRITE(8,95) ICOR 

95 FOHMAT(//' SOLUTION TERMINATED*** TOO MANY ROWS OF IMPINGEMENT', 
Z ' HOLES FORWARD OF STATION ', 13 ,' . HOLES ARE ', 

Z 'ALLOWED ONLY AT STATION 1.') 

STOP 

— KIRCHER-TABAKOFF CORRELATION, IMPINGEMENT WITH CROSS FLOW 
— ICOR = STATION NUMBER APPLICATION OF THIS CORRELATION BEGINS 

101 IGGC = 0 

IREC = 0 
ISTRT=ICOR 

IF (JS.GT.1) ISTRT= 1 
C 

IF (CIMPl.NE.0.0) GO TO 400 

DO 130 I = ISTRT,NFWD 

WC = ABS (WCROS (2,ISLICE,I) ) 

II = 5*1 
REJ (I) =0.0 

IF (IHC (I) .EQ.1) GO TO 103 

LCOOL = 5*1 

LIN = LCOOL - 1 

HC(I) = HCFRCD (I,LCOOL,LIN) 

GO TO 130 
103 CONTINUE 

IF (AJET (I) .EQ. 0.0) GO TO 128 
IP (WJ(ISLICE,I) .LE.O.) GO TO 128 
THP=(T (2, ISLICE, LIN) +T0G)/2. 

CALL GASTBL (TBP,C, CP, GAB, PD, R, XM U) 

CONDCT = C 
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XMOTOG = XMU 


NHCOOLT 

1801 


PDTOG = PD 


NHCOOLT 

1802 

105 

REJ (I) =WJ (I SLICE, I) /A JET (I) *DHJ (I) / (XMUTOG/3600. ) *1 2. 0 


NHCOOLT 

1803 


GG= (WC/A (II) >/ («J (ISLICE,!) /AJET (I) ) 


NHCOOLT 

1804 


IF (GG.LE.2.0) GO TO 110 


NHCOOLT 

1805 


IGGC = IGGC + 1 


NHCOOLT 

1806 


IGG(IGGC) = I 


NHCOOLT 

1807 

110 

CONTINDE 


NHCOOLT 

1808 


IF (REJ (I) . GE. 300.0. AND.EEJ (I) .LE.3 .E4) GO TO 115 


NHCOOLT 

1809 


IREC = IREC + 1 


NHCOOLT 

1810 


lEE(IREC) = I 


NHCOOLT 

1811 

115 

CONTINDE 


NHCOOLT 

1812 


IF (REJ (I) .LT. 3000.) GO TO 120 


NHCOOLT 

1813 


AM=-.00 2517* (XN (I) /DHJ (I) ) ♦*2+ . 0684 85* XN (I) /DHJ (I) +.506 994 


NHCOOLT 

1814 


HC(I) =REJ(I)**AM 


NHCOOLT 

1815 


HC(I) =HC (I) *EXP (.0259 6* (XN (I) /DHJ (I) ) **2-. 8 259*XN (I) /DHJ (I) +. 3985) NHCOOLT 

1816 


HC(I) =HC (I) /(I. + .4696* 


NHCOOLT 

1817 


Z ( (WC/A (II) )/ (HJ (ISLICE,!) /AJET (I) ) *TA0 (II) /DHJ (I) ) *• 

• 965) 

NHCOOLT 

1818 


GO TO 125 


NHCOOLT 

1819 

120 

AM = -.001U52* (XN (I) /DHJ (I) ) **2 + . 0 428 38* (XN(I)/DHJ (I) )+. 516548 

NHCOOLT 

1820 


HC(I) =PEJ (I)**At1 


NHCOOLT 

1821 


HC (I) =HC (I) *EXP (.0126* (XN(I) /DHJ (I) ) **2- . 51 06*XN (I) /DHJ (I) 

-.2057) 

NHCOOLT 

1822 


HC(I) =HC (I) / (1 . +.4215* 


NHCOOLT 

1823 


Z ( (HC/A (II) )/(WJ (ISLICE,!) /AJET (I) ) *TA0 (II) /DHJ (I) ) ** 

.58) 

NHCOOLT 

1824 

125 

CONTINUE 


NHCOOLT 

1825 


HC(I) =HC(I) *CONDCT/DHJ (I) * 1 2 . 0*PDTOG**. 3 3* (TAD (II) /DHJ (I) ) 

**•091 

NHCOOLT 

1826 


GO TO 130 


NHCOOLT 

1827 

C 



NHCOOLT 

1828 

i2e 

CONTINUE 


NHCOOLT 

1829 


IF (I.GT.2) HC(I) = HC(I-2) 


NHCOOLT 

1830 


IF (I.EQ.2) HC(I) = HC(1) 


NHCOOLT 

1831 


IF (I.EQ.1) HC(I) = HC(3) 


NHCOOLT 

1832 

130 

CONTINUE 


NHCOOLT 

1833 


1ST = NFKD + 1 


NHCOOLT 

1834 


DO 15C I = IST,NSTA,2 


NHCOOLT 

1835 


IF (IHC (I) . NE. 1) GO TO 155 


NHCOOLT 

1836 

150 

HC (I) = HC (1-2) 


NHCOOLT 

1837 

155 

1ST = NTWD+2 


NHCOOLT 

1838 


DO 160 I = IST,NSTA,2 


NHCOOLT 

1839 


IF (IHC (I) . NE . 1 ) GO TO 165 


NHCOOLT 

1840 

16 0 

HC(I) = HC(I-2) 


NHCOOLT 

1841 

165 

CONTINUE 


NHCOOLT 

1842 


IF (IGGC.GT.O) WRITE(6,140) (IGG (I) , I =1 , IGGC) 


NHCOOLT 

1843 


DO 132 I = 1,IREC 


NHCOOLT 

1844 


ISTATN = IRE(I) 


NHCOOLT 

1845 


EEJOVE(I) = REJ (ISTATN) 


NHCOOLT 

1846 

132 

CONTINUE 


NHCOOLT 

1847 


IF (lEEC.GT.O) WRITE(6,145) ( IE E ( I) , RE JOVE (I ) ,1 = 1 , 1 EEC) 


NHCOOLT 

1848 

135 

CONTINUE 


NHCOOLT 

1849 

KO 

FORMAT (1H /• MAPNING ♦*★♦**» RATIO OF CROSSFLOW TO 

t 

t 

NHCOOLT 

1850 


Z 'JET-FLOW IS OUT OF THE RANGE OF ', 


NHCOOLT 

1851 


Z 'THE CORRELATION AT THE FOLLOWING STATIONS: » /23X , 20 ( 14 ,',')) N HCOOLT 

1852 


FOEMAT(1H /• **>»■♦♦♦♦ WARNING ♦*♦**♦♦ JET REYNOLD* *S NUMBER 

IS ', 

NHCOOLT 

1853 


Z 'OUT OF THE RANGE OF THE CORRELATION 


NHCOOLT 

1854 


Z 'AT THE FOLLOWING STATIONS: • /I X , 8 ( ' ** • , 1 2, • — ',F8.1, 

•♦•)) 

NHCOOLT 

1855 


DO 301 I = 1,NFWD 


NHCOOLT 

1856 


DUME2 (I) = REJ (I) 


NHCOOLT 

1857 

30 1 

CONTINUE 


NHCOOLT 

1658 


RETURN 


NHCOOLT 

1859 

C 



NHCOOLT 

1860 
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IIHII I nil ■■■ 


c 

GENERAL CORRELATION FOE -IHPINGEMENT WITH CROSSFLOW IS EVALUATED 

HEENHCOOLT 

18cl 

c 

E 

NHCOOLT 

1862 

c 

FORM OF CORRELATION IS: 

NHCOOLT 

1863 

c 

ST = CIHP1*(GG**CIMP2) *(GI**CIMP3) ♦((Z/C) **CIMF4) 

NHCOOLI 

1864 

c 

♦ ( (X/D) ♦*CIMP5)* {EEJ**CIHP6)* (PDT0G**CIM P7) 

NHCOOLT 

1865 

c 

WHERE GG IS THE MASS FLUX RATIO, FREE STREAM TO JET, AND 

NHCOOLT 

1866 

c — 

GI IS THE MOMENTUM FLUX RATIO. 

NHCOOLT 

1867 

c 


NHCOOLT 

1668 

400 

CONTINUE 

NHCOOLT 

1869 


DO 450 I = ISTET,NFWD 

NHCOOLT 

1870 


WC = ABS (WCROS (2,ISLICE,I) ) 

NHCOOLT 

1871 


II = 5*1 

NHCOOLT 

1872 


ROINVJ = P*T0G/(144.*P(2,ISLICE,I) ) 

NHCOOLT 

1873 


EOINVC = R*T(2,ISLICE,II)/(144. *P(2,ISLICE, I) ) 

NHCOOLT 

1874 


REJ(I) = 0.0 

NHCOOLT 

1875 


IF (IHC (I) . EQ. 1) GO TO 403 

NHCOOLT 

1876 


LCOOL = 5*1 

NHCOOLT 

1377 


LIN = LCOOL - 1 

NHCOOLT 

1878 


HC(I) = HCFRCD (I,LCOOL,LIN) 

NHCOOLT 

1879 


GO TO 450 

NHCOOLT 

1880 

403 

CONTINUE 

NHCOOLT 

1881 


IF (AJET (I) .EQ.0.0) GO TO 445 

NHCOOLT 

1882 


IF (HJ(ISLICE,I) .LE.O.) GO TO 445 

NHCOOLT 

1883 


TMP=(T(2,ISLICE,LIN) +T0G)/2. 

NHCOOLT 

1884 


CALL GASTBL (THP ,C, CP, GAM, P D, R, XH U) 

NHCOOLT 

1885 


CONDCT = C 

NHCOOLT 

1886 


XMUTOG = XMU 

NHCOOLT 

1887 


PDTOG = PD 

NHCOOLT 

1888 

405 

EEJ (I) =WJ (I SLICE, I) /AJET (I) *DHJ (I) / (XMUTOG/ 3600 . ) * 1 2 . 0 

NHCOOLT 

1389 


GG= (WC/A (II) )/ (WJ (ISLICE,I)/AJ5T (I) ) 

NHCOOLT 

1890 


GI = ( (WC/A (II) ) **2*ROINVC)/( (WJ (ISLICE,I)/AJET (I) ) **2*R0INVJ) 

NHCOOLT 

189 1 


ZOVERD = TAD (II) /DHJ (I) 

NHCOOLT 

1892 


XOVERD = XN(I)/DHJ(I) 

NHCOOLT 

1893 


ST = CIMP1* (GG**CIMP2) * (GI**CIHP3) ♦ (ZOVERE**CIMP4) 

NHCOOLT 

1894 


Z * (XOVEED**CIMP5)* (REJ (I) **CIMP6) * (PDT0G»*CIMP7) 

NHCOOLT 

1895 


HC(I) = 144.*3600.*ST*CP*WJ(ISLICE,I)/AJET(1) 

NHCOOLT 

1696 


GO TO 450 

NHCOOLT 

18-97 

C 


NHCOOLT 

1S9B 

445 

CONTINUE 

NHCOOLT 

1399 


IF (I.GT.2) HC(I) = HC(I-2) 

NHCOOLT 

1900 


IF (I.EQ.2) HC(I) = aC(1)' 

NHCOOLT 

190 1 


IF (I.EQ.1) HC(I) = HC(3) 

NHCOOLT 

1902 

450 

CONTINUE 

NHCOOLT 

1903 


1ST = NFWD+1 

NHCOOLT 

1904 


DO 460 I = IST,NSTA,2 

NHCOOLT 

1905 


IF (IHC (I) .NE.1) GO TO 465 

NHCOOLT 

1906 

460 

HC(I) = HC(I-2) 

NHCOOLT 

1907 

465 

1ST = NFWD+2 

NHCOOLT 

1908 


DO 470 I = IST,NSTA,2 

NHCOOLT 

1909 


IF (IHC (I) . NE. 1) GO TO 475 

NHCOOLT 

1910 

470 

HC(I) = HC (1-2) 

NHCOOLT 

1911 

475 

CONTINUE 

NHCOOLT 

1912 

C 


NHCOOLT 

1913 


DO 485 I = 1,NFWD 

NHCOOLT 

1914 


DUMR2(I) = REJ(I) 

NHCOOLT 

1^15 

435 

CONTINUE 

NHCOOLT 

1?1b 


RETURN 

NHCOOLT 

1917 


END 

NHCOOLT 

1918 

C 

SOURCE. NHCPINT 

NHCPINT 

1919 


SUBROUTINE HCPINS (IS , DELTAN , LCOOL, LCUP, LIN , LCOOLP ,?INS , EF A REA) 

NHCPINT 

1920 
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o o o 


SOURCE. NHCPINT 


COMMON 

/PEPS/ CPO, 

GAHO, 

DP (80) , 

SP(80), EE(80), 

Z 

CPC (80) , 

GAHC (80) , 

D0HE1 (80) , 

DOHE2(80) 

COMMON 

/TCO/ ADOBP, 

BTA, 

CD, 

CP, 

Z 

GAH, 

PIH, 

E, 

SPAN, TOG 

z 

HDDHF, 

WIM, 

AKC(15,80) 

, AKH(15,80), 

z 

A (400) , 

AJET(80) , 

AH2 (80) , 

CNOH(80) , 

z 

DH (80) , 

DBF (80) , 

DHJ (80) , 


z 

DLX (400) , 

FF (80) , 

HC(80) , 

HG(80) , 

z 

P(2, 15,80) 

,PEXIT(15) , 

POMP (80) , 

QG (80) , 

z 

QSNK (80) , 

BE (80) , 

S(15) , 

T(2,15,400) , 

z 

TG(80) , 

TAO (400) , 

WFC (80) , 


z 

HJ (15,80) , 

HCEOS (2,15 

,80) , 

XN(80) , 

z 

ICOE, 

IFILB, 

IHOB, 

ITIP, 

z 

ISBLOK, 

IS LICE, 

NBLKSZ, 

NSLICB, 

z 

NFWD, 

NSTA, 

IHC (80) 



C 

DIMENSION EFAREA(80), DELTAN(15) 

C 

C COMPUTE THE HEAT TRANSFER COEFFICIENT AND EFFECTIVENESS FOR A 
C TRIANGULAR ARRAY OF PIN FINS 

C 

C WHERE DP IS PIN DIAMETER IN INCHES AND SP IS PIN SPACING IN INCHES 

C 

VDP = DP (IS) 

VSP = SP(IS) 

ICO CONTINUE 

TMP = (T(2,ISLICE,LCOOL) + T (2, I SLICE, LIN) ) /2 . 

CALL GASTBL (TMP,C,CP,GAM,PD, R,XMU) 

C — NO. OF PINS AT THIS STATION IS: 

PINS = SPAN*DLX(LCOOL)/(.86603*VSP**2) 

C-- AVERAGE LENGTH OF PINS: 

SLP = (TAO(LCOOL) + TAO (LCUP) ) /2 • 

IF (IS.GT.NFWD.AND.IS. LE.NFWD+2) SLP= TAU(LCOOL) 

C-- MINIMUM FLOW AREA: 

AMIN = SLP*SPAN* (VSP-VDP)/VSP 
C — TOTAL SURFACE AREA: 

PHTTR “ 2.*DLX(LCOOL)^SPAN + 3. 1 4 1 5 9*PINS* ( VDP^ SLP- VDP’^^2/4 . ) 

C-- CHANNEL HYDRAULIC DIAMETER: 

DH(IS) = 4. *AMIN*DLX (LCOOL) /AHTTR 

REDH = 12.*3600.*ABS(WCROS(2,ISLICE,IS))*DH(IS)/(AMIN*XMO) 

TERM1 = -.89* (VSP/SLP)^*.5075 
TERM2 = -3. 094*VDP/VSP 

TERM3 = 4. 1U3*EXP (TERMI + TERM2 ) / (B EDH**. 29 46) 

1C5 CONTINUE 

HC(IS) = (12.*C/DH(IS) ) *(.023 + TER M3) *( REDH**. 8) * (PD** . 333) 

EML = SQRT(4.*HC(IS)*SLP**2/(AKH (ISLICE,IS)*VDP)) 

EFTVNS = TANH(EML)/EML 

C-- CHECK LOCATION OF HEAT FLOW SPLIT POINT IF THIS IS A TRAILING 
C EDGE REGION STATION 
C 

IF (IS.LE.NFWD) GO TO 160 

TBAR = (T (2,ISLICE,LCOOLP) - T ( 2, I SLICE, LCOOL) ) / 

Z (T(2,ISLICE,LIN) -T (2 ,IS LICE, LCOOL) ) 

HYCOS = COSH(EML) 

HYSIN = SINH (EML) 

IF (HYCOS-TBAR.LT. HYSIN) GO TO 120 
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1961 

1962 
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II I mill nil II I llllllliiii I in 


I M I 


110 

120 

130 

140 

160 

170 
C 

c 

c- 

c 

c 

c 

c 

c 


WEITE(6, 110) LCOOLP, LIN, DELTAS (ISLICE) 

FORNAT(1H //• **** WABNING NODE', 13, 

Z , 'IS RECEIVING HEAT FROM NODE', 13,' THROUGH THE PINS,', 

Z ' RESULTS ARE INVALID. DELTAN =',F7.4) 

GO TO 140 
CONTINUE 

IF (HTCOS-TBAR.GT.O.) GO TO 130 
WRITE (6,110) LIN, LCOOLP, DELTAN (ISLICE) 

GO TO 140 
CONTINUE 

XOVRL = (HYCOS-TEAR)/HYSIN 

XOVRL = ALOG( (1. + XOVRL)/{1.-XOVRL) )/(2.*EHL) 

CONTINUE 

CONTINUE 

EFAREA(IS) = DLX (LIN) *SPAN 

Z - 3. 14159*PINS* (VDP**2/4.- EPTVNS»VDP»SLP*XOVRL) 

IF (IS.GT.NFWD) EFAREA(IS»1) = DLX ( LCOOLP) *SPAN 
Z - 3.14159*PINS* (VDP**2/4.- EFTVNS*VDP*SLP* ( 1. -XOVRL) ) 

IF (IS.LE.NFHD) EFAREA(IS) = DLX (LIN) *SPAN 
Z - 3,14159*PINS*(VDP**2/4.- EFTVNS*VDP*SLP) 

CONTINUE 
RETURN 
END 
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NHCPINT 1982 
NHCPINT 1983 
NHCPINT 1984 
NHCPINT 1985 
NHCPINT 1986 
NHCPINT 1987 
NHCPINT 1988 
NHCPINT 1989 
NHCPINT 1990 
NHCPINT 1991 
NHCPINT 1992 
NHCPINT 1993 
NHCPINT 1994 
NHCPINT 1995 
NHCPINT 1996 
NHCPINT 1997 
NHCPINT 1998 
NHCPINT 1999 
NHCPINT 2000 
NHCPINT 2001 
NHCPINT 2002 
NHCPINT 2003 


-SOURCE. NINPRTT NINPRTT 2004 

SUBROUTINE INPRT (ICHNL, INEDIT) NINPRTT 2005 

NINPRTT 2006 

SOURCE. NINPRTT NINPRTT 2007 

NINPRTT 2008 

COMMON /BOUND/ BCXS(400), BCXP(400), BCHGS(IOOO), BCHGP ( 100C ), NINPRTT 2009 


z 

BCTGS(IOOO), BCTGP(IOOO), BCQGS(IOOO), BCQGP(IOOO) 

^NINPRTT 

2C10 

z 

BCPGS(IOOO), BCPGP(IOOO), THUBIN(400), THUB (80) , 

NINPRTT 

2011 

z 

QHUBIN(400), QHUB(80), TTIP1N(400), TTIP (80) , 

NINPRTT 

2012 

z 

QTIPIN(400), QTIP(80), RHOVG(400), PEX(400), 

NINPRTT 

2013 

z 

BCTIME(5C), TTIO(50), PTIO(50), HPLEN, 

NINPRTT 

2014 

z 

HSVST(50), AKCTBL(20), AKHTBL(20), NBCS, NBCP 

NINPRTT 

2015 






NINPRTT 

2016 

COMMON 

/GAAS/ GS (200) , 

NG 



NINPRTT 

2017 






NINPRTT 

2018 

COMMON 

/PEPS/ CPO, 

GAMO, 

DP(80) , 

SP(80), RE (80), 

NINPRTT 

2‘019 

Z 

CPC (80) , 

GAMC(80) , 

DUMB1 (80) , 

DUMR2(80) 

NINPRTT 

2020 






NINPRTT 

2021 

COMMON 

/RADL/ APLN(15), 

DPLN (15) , 

BIN (15) , 

ROOT (15) , 

NINPRTT 

2022 

Z 

PIN (15), 

TIN (15) , 

«(15) , 

HS 

NINPRTT 

2023 

COMMON 

/SPECL/ CHANL(8000), TITLE(30), INDCHN (2000) , 

NINPRTT 

2024 

Z 

IPLOT, 

MDI, MD2, 

MD3, lADJIN 

, IHRITE 

NINPRTT 

2025 






NINPRTT 

2026 

COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 

NINPR TT 

2027 

Z 

GAM, 

PIM, 

E 9 

SPAN, TOG, 

NINPRTT 

2028 

Z 

HDUHP, 

HIM, 

AKC(15,80) , 

AKH (15,80) , 

NINPRTT 

2029 

z 

A (400) , 

AJET (80) , 

AM2 (80) , 

CNUM(80) , 

NINPRTT 

2030 

z 

DH(80) , 

DHF(80) , 

DHJ(80) , 


NINPRTT 

2031 

z 

DLX (400) , 

FF (80) , 

HC(80) , 

HG(80) , 

NINPRTT 

2032 

z 

P(2, 15,80) , 

PEXIT(15) , 

PUMP (80) , 

QG(80) , 

NINPRTT 

2033 

z 

QSNK(80) , 

BR(80) , 

S(15) , 

T(2, 15,400) , 

NINPRTT 

2034 

z 

TG(80) , 

TAD (400) , 

HFC (80) , 


NINPRTT 

2035 

z 

iJ(15,80) , 

BCROS (2,15, 

80), 

XN(80) , 

NINPRTT 

2036 

z 

ICOR, 

IFILM, 

IHUB, 

ITIP, 

NINPRTT 

2037 

z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE, 

NINPRTT 

2038 

z 

NFHD, 

NSTA, 

IHC (80) 


NINPRTT 

2039 


NINPRTT 2040 


86 


COMMON /TRNSNT/ RHOC^ 

Z DLTTHE, 

COMMON /ONITS/ CINCH(2), 
Z CTMPF{2), 

Z CVISC(2), 


RHOM, 

TTME^ 


SPHTC, 

TBPS, 


SPHTH^ 

TTMMiX 


CHTC(2) , CHPLX(2) 
CTCON(2)^ CDBN(2)^ 
CEHOVG (2) ^lONITS 


CPRSR(2) ^ 
CSPHT(2)r 


CMSFL(2) , 
CGASC (2) , 


C 

C 

C 


DIMENSION DOM1 (10) ,D0M2 (10) ^DUM3 (10) , D0M4 ( 10 ) , DOM5 ( 10) ,DUM6(10) , 
Z DOM? (10) ,DUM8 ( 10) ,DOM9 (10) ^DOM53<10) ,DUM55 (10) 

DIMENSION DOM 10 (10) ,D0M11 (10) ,DUHl2 (10) ^D0M13 ( 10) ^D0M14 (10) , 

Z DOM 15 (10) ^D0M16 (10) ,D0M25 (10) ,D0M52 (10) 

DIMENSION DUM17(10) ,DUM18(10) ,DUM19(10) ,DDM20(10) 

DIMENSION NFLOID(200)^ HCAL(4), UL(2), OA(2) 

DATA HCAL/» IMPGS *CHANS *PINS'^ * V 

DATA OL/* CM IN V 

DATA UA/» CM*S ' IN**/ 

CALL PREP (ICHNL^ NZON, 1) 

INITIALIZE TEMPERATURE DISTRIBUTION (DEGREES E) 

I = ICHNL 
NODSF = 5*NFHD 
NODSTM = 5*NSTA - 4 
NODST = 5*NSTA 


830 II 
= 11/5 
= 11-4 
= 11-3 
= 11-2 
= 11-1 
T(2,I,LO) 
T(2,I,LI) 
T(2,I,LJ) 


DO 

IS 

LO 

LJ 

L 

LI 


= 5,NODSFr5 


. 9*TG(IS) 

T (2,I,LO)/1 
T(2,I,LO) - 


08 

(T(2,I,LO) 


T (2,I,L) = T (2, I,LO) 


830 


T(2^I,LI) ) *TAU(LO) /(TAU (LO) + 

TAO (L) ) 

- (T (2,I,LO) -T (2,I^LI) ) * (TAU(LO) +TAU (L) /2.) 

(TAO (LO) +TAU (L) 

460, 


860 

86 3 
C 


408 

410 

C 


T(2,1 ,11) = TTIO (1) + 

ISTRT = NODSF + 5 

DO 860 II = ISTRT, NODSTM, 10 

T(2,I,I1) = T(2,I,NODSF) 

T(2,I,I1 + 5) = T(2,I,I1) 

DO 860 J = 1,4 

IPJ = II + J 

IMJ = II + J - 5 

lOPP = NODSF + J - 5 

T(2,I,IPJ) = T(2,I,IUPP) 

T(2,I,IMJ) = T(2,I,IUPP) 

DO 865 J = 1, NODST 
T(1,I,J) = T(2,I,J) 

IF (ICHNL. GT.1) GO TO 94 
WRITE (6,408) 

FOR M AT (1H1,////,20X, •PROPERTY TABLES*///) 

WRITE(6,410) 

FORMAT (IH , ’OUTER COATING EFFECTIVE THERMAL CONDUCTIVITY*) 
IF (lUNITS. EQ. 1) GO TO 420 


WRITE (6,412) 
WRITE (6,414) 


(AKCTBL (I) ,1=1, 19,2) 
(AKCTBL(I) ,1=2,20,2) 


NINPRTT 
NINPBTT 
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NINPRTT 
NINPRTT 
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2046 

2047 

2048 
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2050 

2051 

2052 

2053 

2054 

2055 

2056 
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2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 
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2088 

2089 

2090 

2091 
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2100 
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412 F0BHAT(//5X,*T, (P) • , 10X,10 (F9. 1) ) 

414 F0RHAT(5X,' K, (BTU/HR/FT/B) • , 10 (F9 . 3) ) 
BRITE(6,416) 

416 FOR(JAT(////* iALL HETAl THERBAL CONDDCTIVITY • ) 

WBITE(6,412) (AKWTBL (I) ,1=1,19,2) 

WRITE (6,414) (AKHTBL(I) ,1=2,20,2) 

C 

GO TO 445 
C 

420 CONTXNDE 

DO 418 I = 1,19,2 
AKCTBL(I) = (AKCTBl (I) +460. )/1.8 
AKWTBL(I) = (AKWTBL (I) +460.) /1.8 
AKCTBL(I + 1) = AKCTBL (I+D/CTCON (1) 

418 AKWTBL(I+1) = AKWTBL (1+ 1) /CTCON ( 1) 

C 

WRITE(6,422) (AKCTBL(I) ,1=1,19,2) 

WRITE (6,424) (AKCTBL(l) ,1=2,20,2) 

422 FORMAT (//5X, »T, (K) ' ,4X , 10 (F9 . 1 ) ) 

424 FORMAT(5X,'K, { W/M/K) • , 1 0 (F9 . 3) ) 

WRITE (6,416) 

WRITE (6,422) (AKWTBL (1) , 1= 1 , 1 9 , 2) 

WRITE(6,424) (AKWTBL(I) ,1=2,20,2) 

C 

C 

DO 448 I = 1,19,2 

AKCTBL(I) = 1.8*AKCTBL (I) - 460. 

AKWTBL(I) = 1 .8’l‘AKWTBL{I) - 460. 

AKCTBL(I + 1) = AKCTBL (I+1)*CTCON (1) 

448 AKWTBL(I+1) = AKWTBL (1+ 1 ) *CTCON ( 1) 

C 

445 CONTINUE 
C 

WRITE (6,450) 

450 FORMAT(lH ////' TABLE OF GAS PROPERTIES') 

NGS = NG 

IF (NG.GT.10) NGS = 10 
C 

IF (IDNITS.EQ. 1) GO TO 470 
C 

WRITE(6,452) (GS (J) , J= 1 , NGS) 

452 F0RBAT(//5X,' TEMPERATURE (F) • , 1 0 (F9 . 1) ) 

L = NG + 1 
LE = NG + NGS 

WRITE (6,454) (GS (J) , J=L,LE) 

454 FORMAT (5X, • K, (BTO/HR/FT/R) • , 10(F9.5) ) 

L = 2*NG + 1 

LE = 2*NG + NGS 

WRITE (6,456) (GS (J) , J=L,LE) 

456 FORMAT(5X,'CP, (BTU/LBM/R) • , 10 (F9 . 5 ) ) 

L = 3*NG + 1 
LE = 3*NG + NGS 
WRITE(6,458) (GS (J) , J=L,LE) 

458 FORMAT (5X, 'PRANDTL NUMBER ', 1 0 (F9 . 5 ) ) 

L = 4*NG + 1 

LE = 4*NG + NGS 

WRITE (6,460) (GS (J) , J=L,LE) 

460 FORMAT (5X, ' VIS. (LBM/FT/HR) • 10 (F9.5) ) 

C 

GO TO 90 
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c 


NINPRTT 

2161 

c 


NINPRTT 

2162 

470 

CONTINUE 

NINPRTT 

2163 


DO 471 J = 1,NGS 

NINPRTT 

2164 

471 

DUH1(J) = (GS (J) +460.)/1 .8 

NINPRTT 

2165 


WeiTE(6,472) (DUM1 (J) ,J=1,NGS) 

NINPRTT 

2166 

4*72 

FOR M AT (//5X,' TEMPERATURE (K) • , 1 0 (F9 . 1 ) ) 

NINPRTT 

2167 


L = NG + 1 

NINPRTT 

2168 


LE = NG + NGS 

NINPRTT 

2169 


Jl = 0 

NINPRTT 

2170 


DO 473 J = L,LE 

NINPRTT 

2171 


JI = JI+1 

NINPRTT 

2172 

473 

DUHI(JI) = GS (J) /CTCON ( 1) 

NINPRTT 

2173 


WRITE (6,474) (DUMI (J) , J=1,JI) 

NINPRTT 

2174 

474 

FORMAT (5X, ' K, (H/M/K) • , 1 0 (F9 . 5 ) ) 

NINPRTT 

2175 


L = 2*NG + 1 

NINPRTT 

2176 


LE = 2*NG + NGS 

NINPRTT 

2177 


JI = 0 

NINPRTT 

2178 


DO 475 J = L,LE 

NINPRTT 

2179 


JI = JI+1 

NINPRTT 

2180 

475 

DUMI(JI) = GS ( J) /CSPHT ( 1) 

NINPRTT 

2181 


WRIT£{6,476) (DUM 1 ( J) , J= 1 , JI ) 

NINPRTT 

2182 

476 

FORMAT (5X, » CP, (J/KG/K) ' , 10(F9.2) ) 

NINPRTT 

2183 


L = 3*NG + 1 

NINPRTT 

2184 


LE = 3*NG + NGS 

NINPRTT 

2185 


WRITE(6,478) (GS (J) , J=L,LE) 

NINPRTT 

2186 

478 

FORMAT (5X, ' PE ANDTL NUMB ER ' , 1 0 ( F 9 . 5) ) 

NINPRTT 

2187 


L = 4fNG + 1 

NINPRTT 

2188 


LE = 4*NG + NGS 

NINPRTT 

2189 


JI = 0 

NINPRTT 

2190 


DO 479 J = L,LE 

NINPRTT 

2191 


JI = JI+1 

NINPRTT 

2192 

479 

DUMI(JI) = GS (J) /CVISC (1 ) 

NINPRTT 

2193 


W?ITE(6,480) (DUM 1 (J) , J=1, JI) 

NINPRTT 

2194 

480 

FORMAT (5X, • VIS. (N S/ M**2) • 1 0 (F 9 . 5) ) 

NINPRTT 

2195 

C 


NINPRTT 

2196 

90 

CONTINUE 

NINPRTT 

2197 


IF (INEDIT.EQ.O) GO TO 350 

NINPRTT 

2198 

C 


NINPRTT 

2199 

C-- 

LIST OUT THE INPUT HOT GAS BOUNDARY CONDITIONS — 

NINPRTT 

2200 

C 


NINPRTT 

2201 

C--MNBC IS THE HAX OF (NBCS 6 NBCP) 

NINPRTT 

2202 

c 


NINPRTT 

2203 


MNBC = NBCS 

NINPRTT 

2204 


IF (MNBC. LT. NBCP) MNBC=NBCP 

NINPRTT 

2205 


NTIMES = 1 

NINPRTT 

2206 

C — NTIMES IS THE NOMBER OF TIME STEPS IN BC TABLES 

NINPRTT 

2207 

48 1 

IF (BCTIME(NTIMES+1) .LE.0.0) GO TO 482 

NINPRTT 

2208 


NTIMES = NTIMES + 1 

NINPRTT 

2209 


GO TO 481 

NINPRTT 

2210 

C 


NINPRTT 

2211 

482 

CONTINUE 

NINPRTT 

2212 


HEITE(6,4820) 

NINPRTT 

2213 

48 20 

FORMAT(1H1,40X, ‘HOT GAS BOUNDARY CONDITIONS*/) 

NINPRTT 

2214 


WRITE (6 ,483) 

NINPRTT 

2215 

483 

FORMAT (• *************** SUCHIOS S1DZ****************> ,22X, 

NINPRTT 

2216 


Z t ♦♦********^***pUgSSOEE S IDE**************** ) 

NINPRTT 

2217 

C 


NINPRTT 

2218 

C — SET THE NO. OF POINTS PEE TIME STEP IN S6P BC ARRAYS 

NINPRTT 

2219 


NPRTS = NSLICE*NBCS 

NINPRTT 

2220 
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NPETP = NSLICE*NBCP 


C 

NL = 3 

DO 499 IT = 1,NTIMES 
C 

C — SET THE HO. OF POINTS THAT PRECEDED TIME STEP 'IT* 

NPECS = NPETS*(IT-1) 

NPRCP = NPETP* (IT-1) 

C 

C— START THE LOOP THROUGH ALL SLICES 
DO 499 ISL = 1,NSLICE 
C 

C — SET THE NO. OFF POINTS PRECEDING THIS SLICE 
NBFES = NPECS ♦ NBCS*(ISL-1) 

NBFRP = NPRCP ♦ NBCP*(ISL-1) 

C 

HL = NL ♦ 3 + MNBC 
IF (NL.LT.60) GO TO 4860 
NL = 3 ♦ MNBC 
HRITE(6,4820) 

WRITE (6,483) 

4860 CONTINUE 
C 

IF (IT.EQ.1) WRITE (6 ,484) ISL 

484 FOEMAT(45X, ’INITIAL STEADY STATE*/49X, ' SLICE NO.', 12) 

IF (IT.GT.1) WEITE{6,485) BCTIME(IT), ISL 

485 FOEMAT(45X,'BCTIME =',F8.3,» SEC */47X ,' SLICE NO.', 12) 

WRITE (6,486) 

486 FOE MAT (4 X, 'X',7X,'HG',6X,'TG',10X,'QG',6X,'PG', 

Z 26X, ' X' ,7X,' HG* ,6X,*TG' , 10X, ' QG' ,6X, 'PG') 

C 

C — HERE WE LOOP WITHIN A SLICE 
C 

DO 499 IBC = 1,MHBC 

IF (IBC. GT. NBCS) GO TO 487 

J = NBFES + IBC 

JXS = (ISL-1)*NBCS ♦ IBC 

TBCXS = BCXS(JXS)/CINCH(IUNITS) 

TBCHGS = BCHGS (J)/CHTC (lUNITS) 

TBCTGS = BCTGS(J) 

IF (IUNITS.EQ.1) TBCTGS= (BCTGS (J) +460.) /1.8 
TBCQGS = BCQGS (J)/CHFLX(IUNITS) 

TBCPGS = BCPGS(J) /CPESR (lUNITS) 

WRITE (6,489) TBCXS, TBCHGS, TBCTGS , TBCQGS, TBCPGS 

489 FORMAT (2X,F6. 2, 2F8. 1,F12.1, F8.1) 

487 CONTINUE 

IF (IBC.GT.NBCP) GO TO 499 

J = NBFRP ♦ IBC 

JXP = (ISL-1)*NBCP ♦ IBC 

TBCXP = BCXP (JXP) /CINCH (lUNITS) 

TBCHGP = BCHGP (J)/CHTC (lUNITS) 

TBCTGP = BCTGP(J) 

IF (IUNITS.EQ.1) TBCTGP= (BCTGP(J) +460.) /1.8 
TBCQGP = BCQGP(J)/CHFLX( lUNITS) 

TBCPGP = BCPGP(J) /CPESR (lUNITS) 

IF (IBC. LE. NBCS) WRITE (6,488) TBCXP , TBCHGP, TBCTGP, TBCQGP, TBCPGP 
IF (IBC. GT. NBCS) WRITE(6,490) TBCXP , TBCHGP , TBCTGP, TBCQGP, TBCPGP 

488 FORHAT(1H+,65X,F6.2,2F8. 1,F12. 1 ,F8. 1) 

490 FOEMAT(66X,F6.2,2F8. 1,F12. 1,F8. 1) 

499 CONTINUE 
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94 CONTINUE 

DO 95 I = 1,200 

95 NFLOID(I) = 0 

100 WRITE(6,150) ICHNL 

IF (ICHNL. GT.1) GO TO 101 
IF (IHUB.EQ.1) WRITE (6, 142) 

IF (IH0B.EQ.2) HHITE(6,144) 

IP (IH0B.EQ.3) WRITE (6, 146) 

101 CONTINUE 

IF (ICHNL. LT. NSLICE) GO TO 102 
IF (ITIP.EQ.1) WRITE(6,147) 

IF (ITIP.EQ.2) WRITE(6,148) 

IF (ITIP.EQ.3) WRITE(6,149) 

102 CONTINUE 

THIN = RIN (ICHNL) /CINCH (lUNITS) 

TROUT = ROUT(ICHNL) /CINCH(IUNITS) 

TDPLN = DPLN (ICHNL) /CINCH(IUNITS) 

TAPLN = APLN(ICHNL)/(CINCH(IUNITS)*CINCH(IUNITS)) 
WRITE(6,103) TEIN, UL (I U NITS) ,T ROUT , UL ( IUNITS) , 

Z TDPLN, UL (IUNITS) ,TAPLN,UA (IUNITS) 

103 FORMAT(/' COOLANT PLENUM: RI= • , F7 . 3 , A4 , • RO=* ,F7 .3, A4 ,4 X, 

Z 'DHYD=* ,F7.4,A4,* APLEN= • , F7 . 4 , A4, • *2 • ) 

C 

IF (IUNITS. EQ. 1) GO TO 500 

WRITE (6, 153) NFWD,NSTA, SPAN 
WRITE(6,155) CD,ADUMP 
TSM = TTIO(1) + 460. 

WRITE (6, 157) TE«,PTI0 (1 ) ,PEX (ICHNL) ,WPLEN 

ITPBG = NFWD + 2 

WRITE(6,154) ICHNL, ITRBG 

DO 118 I = 1,NSTA,20 

IP18 =1+13 

IF (IP18.GT.NSTA) IP18 = NSTA 
IF (I.EQ.1) WRITE(6,156) ( J , J=I , IP 1 8 , 2) 

IF (I. GT.1) WRITE(6,159) ( J , J=I , I PI 8 , 2) 

ID = 0 

DO 104 J = I,IP18,2 

ID = ID + 1 

DUM 1 (ID) = RP (J) 

NFLUID(J) = 5*J 

104 CONTINUE 

WRITE (6,158) (NFLUID(J) ,J=I,IP18,2) 

ID = 0 

DO 116 J = I,IP18,2 

ID = ID + 1 

NOS = NFLUID(J) - 4 

IF (NOS. GT.1) GO TO 106 

XOS = O.C 

XJN = 0.0 

XMM = 0.0 

XIS = O.C 

XCC = 0.0 

GO TO 108 

106 XOS = XOS + DLX(NOS) 

XJN = XJN + DLX(NOS+1) 

X«« = XMH + DLX(NOS+2) 

XIS = XIS + DLX(NOS+3) 

XCC = XCC + DLX(NOS+4) 

1C8 CONTINUE 
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DUB2(ID) = XOS 

NINPPTT 

2341 

Dn(!25 (ID) = XJN 

NINPETT 

2342 

D0M3(ID) = XHM 

NINPPTT 

2343 

DUn4(ID) = XIS 

NINPHTT 

2344 

DUM5 (ID) = XCC 

NINPETT 

2343 

DUH55(ID) = TAD (NOS) 

NINPETT 

2346 

DUM6 (ID) = TAD(NOS + 2) 

NINPETT 

2347 

NOS = NFLUID(J) 

NINPETT 

2348 

D0H7 (ID) = TAU(NOS) 

NINPHTT 

2349 

D0M8(ID) = A(NOS) 

NINPETT 

2330 

DUM9(ID) = DH(J) 

NINPETT 

2351 

DUHIO (ID) = DHJ(J) 

NINPETT 

2352 

DDH11 (ID) = CNUM (J) 

NINPHTT 

2353 

DUM12(ID) = AJET(J) 

NINPHTT 

2354 

DUM16(ID) = THDBIN(J) - 460. 

NINPETT 

2355 

DOnl7 (ID) = QHUBIN (J) 

NINPETT 

2356 

DUM18(ID) = TTIPIN(J) - 460. 

NINPETT 

2357 

DDM19 (ID) = QTIPIN (J) 

NINPETT 

2358 

NOS = NFLDID(J) - 4 

NINPETT 

2359 

DUB 13 (ID) = TG (J) - 460. 

NINPHTT 

2360 

D0B14 (ID) = HG (J) 

NINPRTT 

2361 

JHCAL = IHC (J) 

NINPPTT 

2362 

D0al5(ID) = HCAL(JHCAL) 

NINPPTT 

2363 

IF (BTA.GT..01) DUB14 (ID) = QG (J) 

NINPHTT 

2364 

CONTINUE 

NINPPTT 

2365 

HRITE(6,160) (DUBI (J) , J=1 ,ID) 

NINPPTT 

2366 

HEITE(6,162) (DUB2(J) ,J=1,ID) 

NINPPTT 

2367 

WEITE(6,163) (DUB25 (J) , J=1 ,ID) 

NINPETT 

2363 

HEITE(6,164) (DDB3(J) ,J=1,ID) 

NINPPTT 

2369 

HEITE(6,166) (DUB4 (J) , J=1 ,ID) 

NINPPTT 

2373 

HEITE(6,168) (DUB5(J) ,J=1,ID) 

NINPPTT 

2371 

WRITE (6,169) (D0B55 ( J) , J=1 ,ID) 

NINPETT 

2372 

WRITE(6,170) (DUB6 (J) ,J=1,ID) 

NINPETT 

2373 

WEITE(6,172) (D0M7(J) , J=1,ID) 

NINPPTT 

2374 

WEITE(6,174) (DUB8 (J) ,J=1 ,ID) 

NINPETT 

2375 

HRITE(6,176) (DUB9 ( J) , J= 1, ID) 

NINPETT 

2376 

WEITE{6,178) (DUB10 (J) ,J=1 ,ID) 

NINPETT 

2377 

WEITE(6,180) (DUB11(J) ,J=1,ID) 

NINPPTT 

2378 

WEITE(6,182) (DUB12 (J) , J=1 ,ID) 

NINPETT 

2379 

WEITE(6,183) (DUB15(J) ,J = 1,ID) 

NINPPTT 

2380 

WRITE(6,184) (DUB13 (J) ,J=1 ,ID) 

NINPETT 

2381 

IF (BTA.LT..01) WHITE(6,186) (DUB 1 4 ( J) , J = 1 , ID) 

NINPPTT 

2362 

IF (BTA.GT..01) WEITE(6,188) (DU B 1 4 ( J) , J = 1 , ID) 

NINPHTT 

2363 

IF (ICHNL.GT.1) GO TO 118 

NINPHTT 

2384 

IF (IHDB.EQ.1) WRITE(6,196) (DUB 1 6 ( J) , J = 1 ,I D) 

NINPPTT 

2385 

IF (IHDB.EQ.3) WEITE(6,198) (DU B 1 7 ( J) , J= 1 , ID) 

NINPRTT 

2386 

IF (ITIP.EQ.1) WRITE(6,202) (DUB 1 8 ( J ) , J = 1 ,I D) 

NINPPTT 

2387 

IF (ITIP.EQ.3) WRITE(6, 204) (DUB 1 9 ( J) , J = 1 , ID) 

NINPPTT 

2388 

CONTINUE 

NINPPTT 

2389 

ITEBG = NFHD + 1 

NINPPTT 

2390 

WRITE (6,190) ICHNL,ITRBG 

NINPETT 

2391 

XOS = 0.0 

NINPETT 

2392 

XJN = 0.0 

NINPETT 

2393 

XBB = 0.0 

NINPETT 

2394 

XIS = 0.0 

NINPHTT 

2395 

XCC = 0.0 

NINPETT 

2396 

DO 140 I = 2,NSTA,20 

NINPETT 

2397 

IP13 =1+18 

NINPETT 

2398 

IF (IP18.GT.NSTA) IP16 = NSTA-1 

NINPRTT 

2399 

IF (T.EQ.2) WRITE(6,156) ( J , J=I , I P 1 8 , 2) 

NINPETT 

2400 
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IF (I.GT.2) «RITE(6,159) ( J , J=I , IP1 8 , 2) 

ID = 0 

DO 122 J = I,IP18,2 
ID = ID ♦ 1 
DUnl(ID) = RR(J) 

NFLUID(J) = 5*J 
122 CONTINUE 

WRITE (6,158) (NFLOID (J) ,J=I,IP18,2) 

ID = 0 

DO 130 J = I,IP18,2 
ID = ID + 1 
NOS = NFLOID (J) - 4 

XOS = XOS ♦ DLX(NOS) 

XJN = XJN ♦ DLX(NOS+1) 

XPIH = XHM + DLX(NOS + 2) 

XIS = XIS ♦ DLX(NOS+3) 

XCC = XCC + DLX(NOS+4) 

D0M2(ID) = XOS 
D0M25(ID) = XJN 
D0K3(ID) = XHM 
D0M4(ID) = XIS 
D0M5(ID) = XCC 
DUM55 (ID) = TAU (NOS) 

DDM6 (ID) = TAU (NOS+2) 

NOS = NFLOID (J) 

DOM7 (ID) = TAU (NOS) 

DUM8(ID) = A(NOS) 

DUM9(ID) = DH(J) 

DOM10 (ID) = DHJ (J) 

DOM 1 1 (ID) = CNOM (J) 

D0M12(ID) = AJET(J) 

D0M16(ID) = THOBIN(J) - 460. 

D0M17 (ID) = QHOBIN(J) 

D0M18(ID) = TTIPIN(J) - 460. 

D0H19(ID) = QTIPIN(J) 

NOS = NFLOID (J) - 4 

DOM13(ID) = TG(J) - 460. 

D0M14 (ID) = HG (J) 

JHCAL = IHC(J) 

DOM15(ID) = HCAL(JHCAL) 

IF (BTA.GT..01) D0M14(ID) = QG(J) 

130 CONTINOE 

WRITE(6,160) (D0M1 (J) ,J=1,ID) 

WRITE (6, 162) (DOH2(J) , J=1,ID) 

WRITE (6,163) (DOM25 (J) ,J=1 ,ID) 

WRITE(6,164) (D0M3(J) ,J=1,ID) 

WRITE (6,166) (D0M4 (J) , J=1 ,ID) 

WRITE(6,168) (DOM5(J) ,J=1,ID) 

WRITE (6,169) (D0M55 (J) , J=1 ,ID) 

WRITE(6,170) (D0M6(J) ,J=1,ID) 

WRITE(6,172) (DUM7(J) ,J=1,ID) 

WRITE(6,174) (DUn8 (J) ,J=1,ID) 

WRITE (6, 176) (D0M9(J) , J=1,ID) 

WRITE(6,178) (DOBIO (J) ,J=1 ,ID) 

WRITE(6,180) (D0B11 (J) , J=1,ID) 

WRITE (6,182) (DUB12 (J) ,J-1 ,ID) 

WRITE(6,183) (D0B15(J) ,J=1,ID) 

WRITE (6,184) (DUM13 (J) , J=1 ,ID) 

IF (BTA.LT. .01) WBITE(6,186) (DOM 1 4 ( J) , J=1 ,ID) 
IF (BTA.GT..01) WBITE(6,188) (DO Hl4 ( J) , J= 1, ID) 
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140 

150 

142 

144 

146 

147 

148 

149 
153 


155 

157 


154 

156 

158 

159 

160 
162 

163 

164 
166 
168 

169 

170 
172 
174 
176 
178 
180 
182 

183 

184 
186 
188 
190 

192 

194 

196 

198 

202 

204 

C 

C 

500 


IF 

IF 

IF 

IF 

IF 


(ICHNL.GT.1) GO TO 140 
(IHUB.EQ.1) »EITE(6,196) 


(IH0B.EQ.3) 
(ITIP.EQ.1) 

(ITIP. EQ.3) 
CONTINUE 

FORMAT (1H1,46X,* INPUT 


WRITE {6, 198) 
WRITE (6,202) 
WRITE (6, 204) 


(D0M16 (J) ,J=1,ID) 
(DOM 17 (J) ,J = 1 ,ID) 
(D0M18 (J) ,J= 1,ID) 
(DOM 19 (J) ,J = 1,ID) 


FORMAT (21X, • 
FORMAT(21X,* 
FORMAT (21X, ' 
FORMAT(21X, » 
FOEMAT(21X, • 
F0RMAT(21X, • 


FOE SLICE NUMBER', 13) 


HOB TEMPEEATOEES ARE SPECIFIED') 
ADIABATIC HUB SPECIFIED') 

HOB HEAT FLOX IS SPECIFIED') 

TIP TEMPERATURES ARE SPECIFIED') 
ADIABATIC TIP SPECIFIED') 

TIP HEAT FLUX IS SPECIFIED') 


FORMAT(/' NOMBER OF STATIONS 
Z 

Z • 

FORMAT (• 

Z ', 

FOEMATC 
Z 


IN IMPINGEMENT REGION IS', 13, 

', TOTAL NOMBER OF STATIONS IS', 13, 
, SPAN OF THIS SLICE IS',F6.3,' IN') 

IMPINGEMENT HOLE DISCHARGE COEF . = ' , F6 . 3 , 

AREA OF DOMP TO TRAILING EDGE =',F8.5,' IN**2') 
COOLANT INLET TEMP. = ' , F7 . 1 , ' R, COOLANT INLET PRESSURE' 
' =',F6.1,' PSIA, EXIT PRESSORE =', 


Z F6.1,' PSIA,'/' COOLANT FLOW =',F6.1,' LBM/HR') 

FORMAT(/' PRESSORE SIDE, SLICE ',12,', TRAILING EDGE REGION ', 
Z 'BEGINS AT STATION- ', 1 3) 


FORMAT{/' STATION NUMBER', 5X 
FORMATC COOLANT NODE NOMBER 
FORMAT (1H2//* STATION NOMBER 
FORMATC RADIAL LOCATION (IN) 
X, OUTSIDE SUE. (IN) 
X, INTERFACE (IN) 
X, MID-METAL (IN) 
X, INSIDE SURF. (IN) 
X, MID. COOL. CH. (IN) 
COATING THKNSS (IN) 
HALL THICKNESS (IN) 
CHANNEL WIDTH (IN) 
CHANNEL AREA(IN**2) 
CHANNEL HXD. DIA (IN) 
IMP. JET HYD.DIA(IN) 


FORMATC 

FORMATC 

FORMAT ( ' 

FORMATC 

FORMATC 

FORMAT (/• 

FORMATC 

FORMAT (' 

FORMATC 

FORMATC 

FORMAT (/' 


FORMATC NO. OF IMP. JETS 
FORMATC TOT. JET AREA(IN**2) 
FORMAT (/' TYPE OF HC CALC. 
FORMATC OUTSIDE BC: TG, (F) 

FORMATC HG ( BTD/HE/FT** 2/R) 
FORMATC QG (BTO/HE/FT**2) 
FOEHAT(1H1,/' SUCTION SIDE, 


10 (6X, 14) ) 
,10(6X,I4) ) 
,5X,10 (6X,I4)) 
,10F10.3) 
,10F10.5) 
,10F10 .5) 
,10F10.5) 
,10F10.5) 
,10F10.5) 

', 10F10.5) 
,10F10.5) 
,10F10.5) 
,10F10.5) 
,10F10 .5) 

', 10F10.5) 
,1CF10 .2) 
,10F10.5) 

', 10(6X,A4) ) 
,10F10 . 1) 
,10F10.1) 
,10F10. 1) 

SLICE ',12, 


TRAILING EDGE REGION', 


FORMAT (/• 

FORMATC 

FORMATC 

FORMATC 

FORMATC 

FORMATC 


' BEGINS AT STATION-' ,13) 

CLAD K(BTO/HR/FT/R) ',10F10.3) 
METL K (BTO/HE/FT/E) ', 10F10.3) 
GIVEN HOB TEMP. (F) » , 1 0F1 0 . 1) 
QHOB (BTO/HR/FT**2) ' ,10F10. 1) 
GIVEN TIP TEMP. (F) ' , 1 OF 1 0 . 1 ) 
QTIP (BTD/HR/FT**2) ',10F10. 1) 


GO TO 350 


SPANC = SPAN/CINCH (1) 

ADUHPC = ADOMP/(CINCH(1)**2) 
WHITE(6,553) NFWD,NSTA, SPANC 
WRITE (6,555) CD,ADOMPC 
TEM = (TTIO(1) + 460.)/1.8 
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PTIOC = PTIO(1)/CPBSB (1) 

PEXC = PEX(ICHNL)/CPESB(1) 

BPLENC = BPLEN/CnSPL (1) 

WBITE (6,557) TEH, PTIOC, PEXC, WPLENC 
ITBBG = NFWD ♦ 2 
BBITE(6,154) ICHNL, ITBBG 
DO 518 I * 1,NSTA,20 
IP18 =1+18 

IF (IP18.GT.HSTA) IP18 = NSTA 
IF (I.EQ.1) WRITE(6,556) (J, J=I, IP18 ,2) 

IF (I.GT.1) HHITE(6,559) (J, J=I, IP1 8,2) 

ID = 0 

DO 504 J = I,IP18,2 
ID = ID ♦ 1 

DOMI(ID) = BB (J)/CINCH{1) 

NFLUID(J) = 5*J 
504 CONTINUE 

HRITE(6,558) (NFLUID(J) ,J=I,IP18,2) 

ID = 0 

DO 516 J = I,1P18,2 

ID = ID + 1 

NOS = NFLUID(J) - 4 

IF (NOS.GT. 1) GO TO 506 

XOS = 0.0 

XJN = 0.0 

XMM = 0.0 

XIS = 0.0 

XCC = 0.0 

GO TO 508 

506 XOS = XOS + DLX (NOS) /CINCH ( 1) 

XJN = XJN + DLX (NOS + 1)/CINCH (1) 

XMM = XMM + DLX (NOS+2) /CINCH( 1) 

XIS = XIS + DLX (NOS + 3)/CINCH (1) 

XCC = XCC + DLX (NOS + 4) /CINCH (1) 

508 CONTINUE 

DUM2(ID) = XOS 
D0M25 (ID) = X JN 
DUM3(ID) = XMM 
DUM4 (ID) = XIS 
DUM5(ID) = XCC 

DUM55(ID) = TAU (NOS) /CINCH( 1) 

DUM6(ID) = TA0(NCS+2)/CINCH(1) 

NOS = NFLUID(J) 

DUM7(ID) = TAU(NOS)/CINCH(1) 

DUM8(ID) = A (NOS)/ (CINCH (1 ) +*2) 

DUM9(ID) = DH(J)/CINCH(1) 

DUMIO(ID) = DHJ (J) /CINCH (1 ) 

DUM 1 1 (ID) = CNUM (J) 

DUS12(ID) = AJET (J)/ (CINCH (1) **2) 

DUM16(ID) = THUBIN (J) /I . 8 
DUM17(ID) = QHUBIN ( J) /CHFLX ( 1) 

DUM18(ID) .= TTIPIN (J)/1 .8 
DUM19(ID) = QTIPIN (J) /CHFLX ( 1) 

NOS = NFLUID ( J) - 4 
DUM13(ID) = TG(J)/1.8 
DUM14(ID) = HG (J) /CHTC (1) 

JHCAL = IHC(J) 

DUM15(ID) = HCAL(JHCAL) 

IF (BTA.GT..01) DUH14(ID) = QG ( J) /C HFLX ( 1) 
516 CONTINUE 
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WRITE (6,560) (DUm (J) ,J=1,ID) 

WEITE(6,562) (DOn2(J) ,J=1,ID) 

WRITE (6,563) (D0M25 (J) ,J=1 ,ID) 

WRITE(6,564) (DUB3 (J) ,J=1,ID) 

WRITE (6,566) (DUH4(J) ,J = 1,ID) 

WRITE (6,568) (D0M5 (J) , J=1 ,ID) 

WRITE(6,569) (DaM55(J) ,J=1,ID) 

WHITE (6,570) (D0H6 (J) ,J=1,ID) 

WRITE(6,572) (D0M7(J) ,J=1,ID) 

WRITE (6,574) (D0M8 (J) , J=1 ,ID) 

WRITE(6,576) (DUM9(J) ,J=1,ID) 

WRITE(6,578) (DOnlO(J) ,J=1 ,ID) 

WBITE(6,580) (DOHII (J) ,J=1,ID) 

WRITE (6,582) (D0H12(J) , J=1,ID) 

WRITE (6,583) (D0H15 (J) ,J=1 ,ID) 

WRITE(6,584) (D0H13(J) ,J=1,ID) 

IF (BTA.LT. .01) WRITE(6,586) (DUM14 (J) , J= 1, ID) 
IF (BTA.GT. .01) WRITE (6, 588) (DOM 14 (J) , J = 1 ,ID) 
IF (ICHNL.GT.1) GO TO 518 

IF (IHOB.EQ.1) WRITE (6,596) (D0H16 ( J) , J= 1 , ID) 

IF (IH0B.EQ.3) WRITE(6,598) (DOM 17 ( J) , J=1 ,ID) 
IF (ITIP.EQ.1) WHITE (6,602) (D0H18 (J) , J=1, ID) 

IF (ITIP.EQ.3) WRITE(6,604) (DOH 19 (J) , J=1 ,ID) 
518 CONTINUE 

ITRBG = NFWD + 1 

WRITE (6, 190) ICHNL, ITRBG 

XOS = 0.0 

XJN = 0.0 

XMM = 0.0 

XIS = 0.0 

XCC =0.0 

DO 540 I = 2,NSTA,20 
IP18 =1+18 

IF (IP18.GT.NSTA) IP18 = NSTA-1 
IF (I.EQ.2) WHITE(6,556) ( J, J=I, TP 1 8 , 2) 

IF (I.GT.2) WRITE(6,559) (J , J=I , IP1 8 , 2) 

ID = 0 

DO 522 J = I,IP18,2 
ID = ID + 1 

DOHI(ID) = HR (J)/CINCH(1) 

NFLUID(J) = 5*J 
522 CONTINUE 

WRITE (6,558) (NFIUID (J) ,J=I,IP18,2) 

ID = 0 

DO 530 J = I,IP18,2 

ID = ID + 1 

NOS = NFLUID(J) - 4 

XOS = XOS + D LX (NOS) /CINCH (1) 

XJN = XJN + DLX (NOS + 1)/CINCH (1) 

XMM = XMM ♦ DLX(NOS+2)/CINCH(1) 

XIS = XIS + Dll (NOS+3)/CINCH (1) 

XCC = XCC + DLX (NOS+4) /CINCH (1) 

DOM2(ID) = XOS 
DOM25 (ID) = XJN 
DOM3(ID) = XMM 
D0M4 (ID) = XIS 
DUBS (ID) = XCC 

DOM55 (ID) = TAD (NOS) /CINCH (1) 

DOM6(ID) = TAU(NOS+2)/CINCH(1) 

NOS = NFLUID(J) 
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DUH7(ID) = TA(J(N0S)/CINCH(1) 

D0M8(ID) = A (N0S)/(CINCH(1)»*2) 

D0M9 (ID) = DH(J)/CINCH(1) 

DUHIO(ID) = DHJ(J) /CINCH (1) 

DUnll (ID) = CNDM(J) 

DUM12(ID) = AJET (J)/ (CINCH (1) **2) 

DUH16(ID) = THOBIN (J)/1.8 
D0M17(ID) = QHUBIN(J)/CHFLX (1) 

D0B18(ID) = TTIPIN (J)/1 .8 

D0M19(ID) = QTIPIN (J)/CHFLX (1) 

NOS = NFLOID(J) - 4 
DUH13(ID) = TG(J)/1,8 
DUH14(ID) = HG (J)/CHTC (1) 

JHCAL = IHC(J) 

DUM15(ID) = HCAL (JHCAL) 

IF (BTA.GT..01) DUM14(ID) = QG ( J) /CHFLX ( 1 ) 

530 CONTINUE 

HEITE(6,560) (DUMI (J) ,J = 1,ID) 

WRITE (6,562) (DUB2(J) ,J = 1,ID) 

HBITE(6,563) (DDB25 (J) , J=1 ,ID) 

WRITE(6,564) (D0B3(J) , J = 1,ID) 

WRITE (6,566) (DOB4 (J) ,J=1,ID) 

WRITE(6,568) (DUB5 (J) , J=1,ID) 

WHITE (6,569) (DUB55 ( J) , J = 1 , ID) 

WRITE(6,570) (DOB6 (J) ,J=1,ID) 

WRITE(6,572) (D0B7 ( J) , J= 1, ID) 

WRITE(6,574) (DOBR (J) , J=1 ,ID) 

WRITB(6,576) (D0B9(J) ,J=1,ID) 

WRITE (6,578) (DOB1 0 ( J) , J=1 , ID) 

WRITE(6,580) (DOBII(J) ,J = 1,ID) 

WRITE (6,582) (DUB1 2 ( J) , J=1 , ID) 

WRITE(6,583) (D0B15 (J) ,J=1,ID) 

WRITE (6,584) (DOB 1 3 ( J) , J=1 , ID) 

IF (BTA.LT..01) WRITE(6,586) (DO B1 4 ( J) , J= 1, ID) 

IF (BTA.GT. .01) WRITE(6,588) (DOB 1 4 ( J) , J= 1 ,ID) 

IF (ICHNL.GT.1) GO TO 540 

IP (IH0B.EQ.1) WRITE(6,596) (DOB 1 6 { J) , J = 1 ,I D) 

IF (IHOB.EQ.3) WRITE(6,598) (DOB 17 ( J) , J = 1 , ID) 

IF (ITIP.EQ.1) WRITE(6 ,602) (DO B18 ( J) , J= 1 , ID) 

IF (ITIP.EQ.3) WRITE(6,604) (DOB 19 (J) ,J=1 ,ID) 

540 CONTINOE 

553 FOEBAT(/* NOBBER OF STATIONS IN IBPINGEBENT REGION IS*, 13, 

Z ', TOTAL NOBBER OF STATIONS IS', 13, 

Z *, SPAN OF THIS SLICE IS*,F6.3,* CB») 

555 FORBATC IBPIHGEBENT HOLE DISCHARGE COEF . =• , F6. 3 , 

Z *, AREA OF DOBP TO TRAILING EDGE =*,F8.5,* CB**2* ) 

557 FORBATC COOLANT INLET TEBP . = • , F7 . 1 , • K, COOLANT INLET*, 

Z * PRESSORE =*,F7.1,* KPA, EXIT PRESSURE =• , 

Z F7.1,* KPA,*/* COOLANT FLOW =',F6.1,* KG/HR*) 

556 FORBAT(//* STATION NOB BER* , 5X, 1 0 (6X , 14) ) 

558 FORBATC COOLANT NODE NOBBER *, 1 0 (6X , 14) ) 

559 FOEBAT(1H2//* STATION NOBBER *, 5X, 1 0 (6X, 14) ) 

560 FORBATC RADIAL LOCATION (CB) *, 10F10 .3) 

562 FORBATC X, OOTSIDE SOR. (CB) * , 10 F10 . 5) 

563 FORBATC X, INTERFACE (CB) * , 1 0F10 .5) 

564 FORBATC X, BID-BETAL (CH) • , 1 0FlO . 5) 

566 FORBATC X, INSIDE SORP. (CB) * , 1 0 FI 0 . 5) 

568 FORBATC X, HID. COOL. CH . (CB) • , 1 0F1 0 .5) 

569 FORHAT(/* COATING THKNSS (CB) • , 1 0F1 0 . 5) 

570 FORHAT{* HALL THICKNESS (CH) • , 10F10 .5) 
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572 

FOEWAT (• 

CHANNEL 

WIDTH (CH) *,10F10.5) 

NINPETT 

2701 

57 4 

FORMAT(» 

CHANNEL 

AREX(CH**2) *,10F10.5) 

NINPPTT 
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576 

FORMAT (' 

CHANNEL 

HYD.DIA (CH) SIOFIO.S) 
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2703 

578 

FORMAT (/ 

* IMP, 

JET 

HYD.DIA(CM) 10F10.5) 
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580 

FORMAT(* 

NO. OF IHP. JETS *,10F10.2) 
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582 

FORMAT (• 

TOT. JET 

AREA(CM»*2) ‘.lOFlO.S) 
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2706 

583 

FORMAT (/ 

I type 

OF 

HC CALC. ',10 (6X, A4) ) 
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584 

FORMAT (• 

OUTSIDE 

BC: TG, (K) • ,10F10 . 1) 
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586 

FORMAT (• 

HG 


(H/H**2/K) *,10F10. 1) 
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588 

FORMAT(» 

QG 


(N/M**2) *,10F10. 1) 
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592 

FORMAT {/ 

• CLAD 

K 

(H/H/K) 10F10.3) 
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594 

FORMAT{* 

METAL 

K 

(B/H/K) »,10F10.3) 
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596 

FORMAT(» 

GIVEN 

HUB TEHP. (K) • ,10F10 . 1) 
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598 

FORMAT{» 

QHUB 


{W/M**2) • , 10F10 . 1) 
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602 

FOEMAT(» 

GIVEN 

TIP TEHP. (K) • ,10F10. 1) 
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604 

FORMAT (• 

QTIP 


(H/M**2) • ,10F10.1) 
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C 
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350 

CONTINUE 
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RETURN 
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END 
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C 

-SOURCE. 

NPARAYT 
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SUBROUTINE PARRAY ( JS ^ JSENS , ICHOKE) 



NPARAYT 

2722 

C 






NPAPA YT 

2723 

C- 

SOURCE. 

NPARAYT 
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2724 

C+ + + 

A SUBROUTINE TO SET UP THE COEF ARRAY TO SOLVE 

FOR BLADE PRESSURES 

NPARAYT 

2725 

C 
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REALMS 

TCOF 
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2727 

C 
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COMMON 

/MATRX/ TCOF (400 

,30) 
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C 
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2730 


COMMON 

/PRPS/ CPO, 

GAMO, 

DP (80) , 

SP(80), RE (80), 

NPARAYT 
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• Z 

CPC(80) , 

GAHC(80) , 

DUHR1 (80) , 

DUMR2 (80) 
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C 
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COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 
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Z 

GAM^ 

PIH, 

H, 

SPAN, TOG, 
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Z 

WDUMP, 

HIH, 

AKC (15,80) 

, AKW (15,80) , 

NPARAYT 
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Z 

A (400) , 

AJET (80) , 

AH2 (80) , 

CNUH (80) , 

NPARAYT 

2737 


Z 

DH (80) , 

DHF (80) , 

DHJ (80) , 


NPARAYT 

2738 


z 

DLX(400) , 

FF(80) , 

HC (80) , 

HG (80) , 

NPARAYT 

2739 


z 

P(2.15,80) 

,PEXIT (15) , 

POHP(80) , 

QG(80) , 

NPARAYT 

2740 


z 

QSNK (80) ^ 

RR (80) , 

S(15) , 

T (2,15,400) , 

NPARAYT 

2741 


z 

TG (80) ^ 

TAU (400) , 

WFC (80) , 


NPARAYT 

2742 


z 

WJ(15^80) ^ 

BCROS(2, 15, 

80) , 

XN (80) , 

NPARAYT 

2743 


z 

ICOR, 

IFILH, 

IHOB, 

ITIP, 

NPARAYT 

2744 


z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE, 

NPARAYT 

2745 


z 

NFHD^ 

NSTA, 

1HC(80) 


NPARAYT 

2746 

C 






NPARAYT 

2747 


COMMON 

/TRNSNT/ RHOCr 

EHOM, 

SPHTC, 

SPHTH, 

NPARAYT 

2748 


Z 

DLTYME, 

TYME, 

TEPS, 

TYMHAX 

NPARAYT 

2749 

c 






NPARAYT 

2750 


DIHEMSION POLD(80), PSAV(5) 



NPARAYT 

2751 

c 






NPARAYT 

2752 

C COMPUTE NEN PRESSURES 




NPARAYT 

2753 

C 






NPARAYT 

2754 

C IFNL = THE 

NUMBER OP FLOW CHANNEL NODES 



NPARAYT 

2755 

c 






NPARAYT 

2756 


TREPS - 

= 1.0 




NPARAYT 

2757 


IF (TIHE.GE.O.) TBEPS = 

TEPS 



NPARAYT 

2758 

800 

IPNL = 

NSTA - 3 




NPARAYT 

2759 


NODST = 

' 5*NSTA 




NPARAYT 

2760 
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NODSF = 5*NFWD 
C 

C INITIALIZE COEFFICIENT AFRAT TO 0.0 
C 

DO 810 I = I^IFNL 
DO 810 J = 1^30 
810 TCOF (I, J) =0.0 
C 

C COMPOTE THE COEFFICIENT VALUES 
C 

DO 900 I = 1,IFNL 
FILM = 0.0 

820 ICHK = I - 2* (1/2) 

C 

C FOR THE IMPINGEMENT REGION: 

C ICHK = 0 IMPLIES I IS EVEN AND STATION IS ON SUCTION SIDE 

C = 1 IMPLIES THAT I IS ODD AND STATION IS OK PRESSURE SIDE 

C 

C DEFINE THE REAL NODE NUMBER IN TERMS OF I 

C WHERE IRL IS THE PIVOTAL ELEMENT = COOLANT NODE NUMBER, LCOOL 
C IDN = DOWNSTREAM COOLANT NODE 

C lUP = UPSTREAM COOLANT NODE 

C 

IF ( I.LT.NFWD ) GO TO 840 
IF ( I.EQ.NFWD) GO TO 890 
C 

C FOR I=NFWD, THE NODE IS THE ENTRANCE TO THE TRAILING EDGE AND IS 
C TREATED SEPARATELY AT (890) 

C FOR I>NFWD, THE NODE IS IN THE TRAILING EDGE AND IRL IS DEFINED AS: 
C 

IF (ICHK.GT.O) GO TO 885 
IRL = 5^I 
IDN = IRL + 10 
IDNS = 1+2 
lUP = IRL 
lUPS = IDNS - 2 
ITC = 10 
ITCP = 12 
830 CONTINUE 
GO TO 860 
C 

840 CONTINUE 
IRL = 5*1 

IF (I.GT.JS) GO TO 843 
C 

IF (I.LT.JS) GO TO 852 
C 

IF (ICHK.GT.O) GO TO 849 
C 

GO TO 855 
C 

843 IF (ICHK.GT.O) GO TO 849 
C 

C STATION I IS SUCTION SIDE, DOWNSTREAM OF SPLIT POINT 
C 

346 lUPS =1-2 
IDNS = I 
lUP = IRL - 10 
IDN = IRL 
ITC = 8 


MPA BAIT 
KPARATT 
NPABA YT 
N PAR ATT 
KPARATT 
KPARATT 
KPARATT 
KPARATT 
KPARATT 
NPARATT 
KPARATT 
NPARATT 
NPARATT 
KPARATT 
NPARATT 
KPARATT 
KPARATT 
KPARA TT 
KPARATT 
NPARATT 
KPARATT 
NPARATT 
NPARATT 
NPARATT 
KPARA YT 
KPABAYT 
NPARATT 
NPARATT 
KPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARA'YT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
KPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 
NPARATT 


2761 

2762 

2763 
27 64 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 
2807 
2800 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 
2817 
2018 
2019 
2820 
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ITCP = 10 

NPAFAYT 2821 


IF (I.GT.2) GO TO 860 

NPARAYT 2822 


lOPS = 1 

NPAEAYT 2823 


lUP = 5 

NPARAYT 2824 


ITC = 9 

NPARAYT 2825 


GO TO 860 

NPARAYT 2826 

c 


NPARAYT 2827 

C STATION I IS PFESSORE SIDE^ DOWNSTREAM OF SPLIT POINT 

NPARAYT 2828 

C 


NPARAYT 2829 

849 

CONTINUE 

NPARAYT 2830 


lOPS = I 

NPARAYT 2831 


IDNS =1+2 

NPARAYT 2832 


lUP = lEL 

NPARAYT 2833 


IDN = lEL + 10 

NPARAYT 2834 


ITC = 10 

NPAEAYT 2835 


ITCP = 12 

NPARAYT 2836 


GO TO 860 

NPARAYT 2837 

85 2 

CONTINUE 

NPARAYT 2838 


IF (ICHK.GT.O) GO TO 856 

NPARAYT 2839 


IF (ICHK.NE. JSENS) GO TO 846 

NPARAYT 2840 

855 

CONTINUE 

NPAEAYT 2841 

C 


NPAEAYT 2842 

C I 

IS ON SUCTION SIDE, FORWARD OF SPLIT POINT 

NPARAYT 2843 

C 


NPARAYT 2844 


lUPS = I 

NPARAYT 2845 


IDNS =1-2 

NPARAYT 2846 


lUP = IRL 

NPARAYT 2847 


IDN = IRL - 10 

NPARAYT 2848 


IDX = lUP 

NPARAYT 2849 


ITC = 10 

NPARAYT 2850 


ITCP = 8 

NPARAYT 2851 


IF (I.GT.2) GO TO 860 

NP.KRAYT 2852 


IDNS = 1 

NPARAYT 2853 


IDN = 5 

NPARAYT 2854 


ITCP = 9 

NPARAYT 2855 


GO TO 860 

NPARAYT 2856 

858 

CONTINUE 

NPARAYT 2857 


IF (ICHK. NE. JSENS) GO TO 849 

NPARAYT 2858 


IDNS = I 

NPARAYT 2859 


lUPS =1+2 

NPARAYT 286C 


IDN = IRL 

NPARAYT 2861 


lUP = IRL + 10 

NPARAYT 2862 


IDX = lUP 

NPARAYT 2863 


ITC =12 

NPARAYT 2864 


ITCP = 10 

NPARAYT 2865 

C 


NPARAYT 2866 

860 

CONTINUE 

NPARAYT 2667 

C 


NPAEAYT 2868 

C 


NPARAYT 2869 


TRTRM = 0.0 

NPAEAYT 2870 


IF (DLTYHE.GT.O.O.AND.TYME.GE.O. ) TRTRM = 1 2. ♦DLX ( IDN) * 

NPARAYT 2871 


Z (WCEOS (2,ISLICE,IDNS) -WCROS ( 1, ISLICE, IDNS) )/(DLTYHE*A (lUP) *32.2) 

NPARAYT 2872 


WFCDUH = WFC(IDNS) 

NPARAYT 2873 


IF (I.GT.NFWD) WFCDUM = WFCDUM + KFC(IDNS+1) 

NPARAYT 2874 


IF (WCROS (2, ISLICE, IDNS) .NE.0.0) FILM = WFCDUM/WCROS (2, 1 SLICE, IDNS) 

NPARAYT 2875 


TCOF(I,ITC) = TREPS* 

NPARAYT 2976 


Z ((1.0 + GAHC(IUPS)*AM2(IUPS)) + (A (IDN) - A (I UP) ) /( 2 . * A (I UP) ) ) 

NPARAYT 2877 


TCOF(I,ITCP) = TREPS*(-(1.0 + . 5*GAHC (IDNS) *AM2 (IDNS) * 

NPARAYT 287b 


Z (4.*FF (IDNS)*DLX (IDX) /DH (IDNS) +2. +2.*FILM) ) *A (IDN) /A (I OP) 

NPARAYT 2879 


Z + (A (IDN) -A (lUP) ) /(2.*A (lOP) ) ) 

NPARAYT 2860 
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ROOT = SQRT (32. 2+GAMC (IDNS) ♦R *T (2 ,I SLICE , IDN) * A «2 (IDNS) ) 

PUMTRM = 0.0 

IF (ROOT. NE. 0.0) PUMTRM = ( 3 . 14 1 592 65* HS/30 . ) **2* 

Z RR (IDNS) * (RR (IDNS) -RE (I UPS) ) ♦WCROS (2, IS LICE, IDNS) 

Z /(A (lUP) *ROOT*144.*32. 2) 

TCOF(I,20) = -PUflTRrt + TRTRM - (1.-TREPS)* 

Z (P (1 ,ISLIC£,IUPS) ♦TCOFCI^ITC) + P (1, IS LICE, IDNS) *TCOF ( I , ITCP) ) 
370 CONTINUE 

IF (IDNS.NE.ICHOKE) GO TO 880 

TCOF(I,20) = -P (1 , ISLICErICHOKE) *TCOF (I, 12) ♦ TCOF(I,20) 

TCOP (I, 12) =0.0 

880 CONTINUE 

FOR TRAILING EDGE CHANNELS: 

IF (I.LT.IFNL) GO TO 900 

TCOF(I,20) IS NON-ZERO ONLY FOR I=IFNL 

IF (ICHOKE. EQ.NSTA-1) GO TO 900 

TCOF(I,20) = - PEXIT (ISLICE) +TCOF (I, 12) + TCOF(I,20) 

TCOF(I,12) = 0.0 
GO TO 900 
5 CONTINUE 

FDR A PRESSURE SIDE, TRAILING EDGE REGION STATION, COOLANT NODE 
IS IDENTICAL TO SUCTION SIDE NODE. 

TCOF (I, 10) =1.0 

TCOF(I,9) =-1.0 
TCOF (1,20) =0.0 

GO TO 900 
0 CONTINUE 


FOR THE SPECIAL NODE AT THE ENTRANCE TO THE TRAILING EDGE: 
ALLOWING FOR THE POSSIBILITY OF ADDITION OF EXTRA COOLING AIR 
INTO TRAILING EDGE, 


C 


Z 

Z 


Z 

Z 

z 

z 


TRTRM = 0.0 

IF (DLTYME.GT.0.0. AND.TYME.GE.O.) T RTRM= 1 2. * DLX (NFW D+ 1 ) * 

(WCROS (2, ISLICE, NFWD + 1) -WCROS ( 1 ,ISLICE, NFWD+1) ) / 

(DLTYME*A (NODSF + 5) *32.2) 

AVRGA = (A(NODSF-5) + A (NODSF) - A (NODSF + 5) ) / (3 . * A ( NODSF + 5) ) 

TCOF (1,9) = TREPS*((1. + G AMC ( NF WD-1 ) * AM2 (NFWD- 1 ) ) * 

A (NODSF-5)/A (NODSF + 5) - AVRGA) 

TCOF(I,10) = TEEPS*((1. + GAWC (NFWD) *AM2 (NFWD) ) * 

A (NODSF)/A(NODSF + 5) - AVRGA) 

IF (WCROS (2, I SLICE, NFWD + 1) .NE.O. 0) FILM = 

(WFC (NFWD+1) +WFC(NFWD+2) ) /WCROS ( 2 , ISLICE, NFWD+ 1 ) 
TCOF(I,11) = TREPS*(-1. - GAMC (NFWD+1) *AM2 (NFWD+1) ♦ 

( 1. + 2.*FF(NFWD + 1) *DLX(NODSF+5)/DH (NFWD +1)+FILH) - AVRGA) 


POMP (NFWD+1) = (3. 14 159 265* WS/30.) **2* 

Z RR( NFWD+1) *(RR( NFWD + 1) -RR(NFWD) ) 

ROOT = SQRT (32.2*GAMC (NFWD+1)*R* 

Z T ( 2, ISLICE, NOD3F + 5) *AM2 (NFWD+1) ) 

PUMTRM = 0.0 

IF (ROOT. NE.O. 0) PUMTRM = ( 3. 14 1 59265*WS/30 . ) **2*RR (NF WD+1 ) * 
Z (RR (NFWD + 1) -RR (NFWD) ) * WCROS (2 , IS LICE, NFW D+ 1 ) 


NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 

NPARAYT 


2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 
2391 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 
29 15 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 
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o VO non 


Z 


/{A (NODSF+5) *ROOT*144.*32. 2) 

PUMP HAS UNITS OF (IN**2/SEC**2) ; ROOT HAS UNITS OF (FT/SEC) 
DUMTER = 0.0 

IF (ADUMP.GT.O.) DUMTER = - WDUMP**2*R* 

Z (T (2, ISLICE^NODSF-5) +T (2 ,I SLICE , NODSF) )/ 

Z ((P (1^ISLICE,NFMD-1) + P ( 1 , ISLI CE, NFWD) ) *ADUMP* A (NODS F+5) *32 . 2 ) 
TCOF(I,20) = - PDMTRM + DUMTER + TRTEM 
Z - ( 1.0 -TRIPS) * (P ( 1 ,ISLICE^NFWD-1) *TCOF (1,5) 

Z + P (1 ^ISLICE^NFWD) *TCOF (I, 10 ) +P ( 1 ^ ISLICE, NFWD+1) *TCOF (I, 11)) 
00 CONTINUE 

RETURN 
END 


NPARAYT 2941 
NPARAYT 2942 
NPARAYT 2943 
NPARAYT 2944 
NPARAYT 2945 
NPARAYT 2946 
NPARAYT 2947 
NPARAYT 2948 
NPARAYT 2949 
NPARAYT 2950 
NPARAYT 2951 
NPARAYT 2952 
NPARAYT 2953 
NPARAYT 2954 
NPARAYT 2955 


C--‘ 

C 

C- 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


--SOURCE. NPLENMP 

SUBROUTINE PLNUM ( H XX, PXX^PTEXIT , TXX , TTEXIT) 


NPLENMP 
NPLENMP 
NPLENMP 

SOURCE. NPLENMP NPLENMP 

A SUBROUTINE TO COMPUTE PRESSURE DROP IN THE CENTRAL COOLANT PLENUMNPLENMP 

NPLENMP 

NPLENMP 

NPLENMP 

NPLENMP 

NPLENMP 

NPLENMP 
NPLENMP 
NPLENMP 
NPLENMP 
NPLENMP 
NPLENMP 
NPLENMP 
NPLENMP 


ARGUMENTS FOE THIS SUBROUTINE ARE: 


HXX 

PXX 

PTEXIT 

TXX 


MASS FLOW RATE INTO THIS SLICE, LBM/HR 
AVERAGE STATIC PRESSURE FOR THIS PLENUM SLICE, PSIA, 
CALCULATED IN THIS SUBROUTINE. 

TOTAL PRESSURE IN AND TOTAL PRESSURE OUT, PSIA 
AVERAGE STATIC TEMPERATURE FCR THIS PLENUM SLICE, (F) , 


2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 


CALCULATED 
TTEXIT = TOTAL TEMP. 

IN THIS SUBROUTINE 
IN AND TOTAL TEMP. OUT, 

(F) 

NPLENMP 

NPLENMP 

NPLENMP 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

COMMON 

/BAD!/ APLN (15) , 

DPLN (15) , 

BIN (15) , 

BOOT ( 15) , 

nrL£*Nnr 

NPLENMP 

NPLENMP 

NPLENMP 

Z 

PIN (15) , 

TIN (15) , 

W(15), 

ws 

NPLENMP 

2981 

COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 

NPLENMP 

NPLENMP 

2982 

2983 

Z 

GAM, 

PIM, 


SPAN, TOG, 

NPLENMP 

2984 

Z 

WDUMP, 

WIM, 

AKC(15,80) 

, AK»(15,80), 

NPLENMP 

2985 

Z 

A (400) , 

AJET (80) , 

AH2 (80) , 

CNOM(80) , 

NPLENMP 

2986 

Z 

DH (80) , 

DHF (80) , 

DHJ (80) , 


NPLENMP 

2987 

z 

DLX (400) , 

FF (8C) , 

HC(80) , 

HG(80) , 

NPLENMP 

2988 

z 

P(2,15,80) 

,PEXIT(15) , 

POHP (80) , 

QG(80) , 

NPLENMP 

2989 

z 

QSNK (80) , 

ER (80) , 

S (15) , 

T(2,15,400) , 

NPLENMP 

2990 

z 

TG(80) , 

TAU (400) , 

WFC (80) , 


NPLENMP 

2991 

z 

MJ (15,80) , 

HCEOS (2,15 

,80) , 

XN (80) , 

NPLENMP 

2992 

z 

ICOE, 

IFILM, 

IHUB, 

ITIP, 

NPLENMP 

2993 

z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE, 

NPLENMP 

2994 

z 

NFWD, 

NSTA, 

IHC (80) 


NPLENMP 

2995 

COMMON 

/TENSNT/ RHOC, 

RHOH, 

SPHTC, 

SPHTH, 

NPLENMP 

NPLENMP 

2996 

2997 

z 

DLTYHE, 

TYME, 

TEPS, 

TYMMAX 

NPLENMP 

2998 

COMMON 

/UNITS/ CINCH (2) 

, CHTC(2), 

CHFLX(2), CPBSR(2), CHSFL(2), 

NPLENMP 

NPLENMP 

2999 

3000 
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Z CTHPF(2), CTC0K(2), CDEN (2) , CSPHT(2), C6ASC (2) , 

Z C?ISC(2), CEHOVG (2) ,IOHITS 

C 

DIMENSION BETTA (20) (20) ,&HC (20) ,SIGNA(20) ,TT1(20) ,P1 (20) , 

1 Z1 (15) ,CH(15) 

DIMENSION SV(3) ,XK(4) ,XL(4) 

FONP(FF) IS THE EQUATION FOE DELTA P OVEE LENGTH DX 

FONP (FF) = (D1*EEP* (PP/E/TP-T 1 ) /1 44 .0-2. *FF*G2*TP/PP/AA/AA/DD) 

Z /(1.-TP*G2/(PP*AA)**2*G1*CP 

Z •778. 161*E*TP*TP*V1/(PP*AA) •*2/PP) *DX 

FDNT(XK) IS THE EQUATION FOE DELTA T OVEE LENGTH DX 

FONT (XK) = (D2*EEP/CP + G1*E* (TP/PP/AA) ♦•2* (XK/PP/DX) ) 

Z /(1.+G1*E*TP/(PP*AA) **2) *DX 

INITIALIZE 
CONTINUE 
DIFTOL=0.005 
ACH=1 . 

KSIG=0 
NCC=1 
IS=0 
KTE1=0 

H(ISLICE) = HXX 

SAVE INLET TOTAL PRESSUEE (PSIA) IN PIN AND INLET TOTAL 
TEMPERATURE (F) IN TIN 

PIN(ISLICE) = PTEXIT 
TIN (ISLICE) = TTEXIT 
CH (ISLICE) =0.0 
ZED=Z1 (ISLICE)*1.01 
IF (ZED.EQ.O.) ZED=.001 
IF (TIN (ISLICE) .GT. -430.0) GO TO 5 
TIN (ISLICE) =50.0 
SIGB=0. 0 


NSTNS= 4 
SEGMTS=NSTNS-1 


T1=TIN (ISLICE) +460.0 
B (1) =T1 

BETA 1=PIN (ISLICE ) **2 
BETTA (1) =BETA 1 
DX=S (ISLICE) /SEG MTS 
DXTEMP=DX 
XXN=NSTNS 


13 DE= (ROUT (ISLICE) -R IN (ISLICE) ) /SEGMTS 

C 

CCOMPUTE CONSTANT TERHS-C1-C8 - 

17 CONTINUE 

TTX=B (1) 


NPLBNHP 3001 
NPLBNHP 3002 
NPLBNHP 3003 
NPLBNHP 3004 
NPLBNHP 3005 
NPLBNHP 3006 
NPLBNHP 3007 
NPLBNHP 3008 
NPLBNHP 3009 
NPLBNHP 3010 
NPLBNHP 3011 
NPLBNHP 3012 
NPLBNHP 3013 
NPLBNHP 3014 
NPLBNHP 3015 
NPLBNHP 3016 
NPLBNHP 3017 
NPLBNHP 3018 
NPLBNHP 3019 
NPLBNHP 3020 
NPLBNHP 3021 
NPLBNHP 3022 
NPLBNHP 3023 
NPLBNHP 3024 
NPLBNHP 3025 
NPLBNHP 3026 
NPLBNHP 3027 
NPLBNHP 3028 
NPLBNHP 3029 
NPLBNHP 3030 
NPLBNHP 3031 
NPLBNHP 3032 
NPLBNHP 3033 
NPLBNHP 3034 
NPLBNHP 3035 
NPLBNHP 3036 
NPLBNHP 3037 
NPLENHP 3038 
NPLENHP 3039 
NPLBNHP 3040 
NPLENHP 3041 
NPLENHP 3042 
NPLENHP 3043 
NPLENHP 3044 
NPLENHP 3045 
NPLENHP 3046 
NPLENHP 3047 
NPLENHP 3048 
NPLENHP 3049 
NPLENHP 3050 
NPLENHP 3051 
NPLENHP 3052 
NPLENHP 3053 
NPLENHP 3054 
NPLENHP 3055 
NPLENHP 3056 
NPLENHP 3057 
NPLENHP 3058 
NPLENHP 3059 
NPLENHP 3060 
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CALL GASTBL (TTI, C, CP , GAB.PD, E , XMO) 

J = 1 

C6=.5* (GAH-1.0) 

C1=GAB/C6 

C 

C 

IF (WS)21,19,21 
C NO POBPING 
19 C3=0.0 

GO TO 23 
C 

C PUBPING 
C 

21 C3=2.36695E-6*(WS**2)/(C1*R) 

23 C8=32.17*GAB*H 

C5=1. 0/SQHT (C8) 

C7=1. 0/(32, 17*C1*E) 

IF (J.GT.1) GO TO 33 

25 CONTINUE 

C 

C COBPUTE CHANNEL REYNOLDS NO. IF J = 1 
C 

REY = 12.0*H (ISLICE) /XBO^DPLN (ISLICE)/APLN(1SLICE) 
C 

C CONFUTE FRICTION FACTOR 
C 

C CONFUTE Z TEENS 
33 CONTINUE 

Z3=12.0*H (ISLICE)/XHU 
Z4= (R*W (ISLICE)/3600.0 ) **2 
IF (J.GT.1) GO TO 77 
C DETERBINE INLET CONDITIONS 

35 CONTINUE 

C INITIAL STATION COMPUTATIONS - 

C BALANCING ON TOTAL PRESSURE - 
39 NAG=-1 

41 SIGC= (B (J) /APLN (ISLICE) ) **2* Z4/BETT A ( J) 

IF (ABS (SIGB-SIGC) .LE..00001*SIGC) GO TO 57 
C SIGMA NOT CONVERGED 
43 IS=IS+1 

SV(IS)=SIGC 

IF (IS.EQ.3) GO TO 135 

45 B (J) =T1-C7*SIGC 

IF (B (J) .LT.50.0) GO TO 159 
C TEMP OK 
47 SIGB=SIGC 

BETTA (J) =BETA1* (B (J) /T1 ) **01 

GO TO 41 

C SIGMA CONVERGED 
57 B (J) =T1-C7*SIGC 

AMC (1) =SQRT (SIGC/B(J) ) *C5 
IF (B (J) .LE.0.0) GO TO 159 
KTRBZ=0 

63 BEITA (J)=BETA1/(1.0+C6*AMC(1) **2) **C1 
IF (BETTA (J) .LE.O.) GO TO 159 
65 B (1) =T1/(1.0 + C6*AMC( 1) ♦*2) 


NPLENMP 3061 
NPLENMP 3062 
NPLENMP 3063 
NPLENMP 3064 
NPLENMP 3065 
NPLENMP 3066 
NPLENMP 3067 
NPLENMP 3068 
NPLENMP 3069 
NPLENMP 3070 
NPLENMP 3071 
NPLENMP 3072 
NPLENMP 3073 
NPLENMP 3074 
NPLENMP 3075 
NPLENMP 3076 
NPLENMP 3077 
NPLENMP 3078 
NPLENMP 3079 
NPLENMP 3080 
NPLENMP 3081 
NPLENMP 3082 
NPLENMP 3083 
NPLENMP 3084 
NPLENMP 3085 
NPLENMP 3086 
NPLENMP 3087 
NPLENMP 3088 
NPLENMP 3089 
NPLENMP 3090 
NPLENMP 3091 
NPLENMP 3092 
NPLENMP 3093 
NPLENMP 3094 
NPLENMP 3095 
NPLENMP 3096 
NPLENMP 3097 
NPLENMP 3098 
NPLENMP 3099 
NPLENMP 3100 
NPLENMP 3101 
NPLENMP 3102 
NPLENMP 3103 
NPLENMP 3104 
NPLENMP 3105 
NPLENMP 3106 
NPLENMP 3107 
NPLENMP 3108 
NPLENMP 3109 
NPLENMP 3110 
NPLENMP 3111 
NPLENMP 3112 
NPLENMP 3113 
NPLENMP 3114 
NPLENMP 3115 
NPLENMP 3116 
NPLENMP 3117 
NPLENMP 3118 
NPLENMP 3119 
NPLENMP 3120 
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67 

69 

71 

C 

73 


77 


79 


81 

83 


85 


SIGPIA (1) = (B (J) /APLN (ISLICE) ) **2*Z4/BETTA (J) 

NPLENHP 

3121 

SIGC = SQRT(SIGMA(1)/B(1) ) *C5 

NPLENMP 

3122 

IF (ABS (SIGC-AMC (1) ) .LE. .01 ) GO TO 71 

NPLENHP 

3123 

AMC (1) =SIGC 

NPLENMP 

3124 

KTEBZ=KTEBZ+1 

NPLENMP 

3125 

IF (KTBBZ. LE. 20) GO TO 63 

NPLENMP 

3126 

TT1 (1) =TIN (ISLICE) 

NPLENMP 

3127 


NPLENMP 

3128 

CHANHEL PEESSOSE DROP - 

NPLENMP 

3129 


NPLENMP 

3130 

NAG = 1 

NPLENMP 

3131 

FI (1) =REY 

NPLENHP 

3132 

SIGMA (2)=SIGMA ( 1) *.9 5 

NPLENMP 

3133 

J = 2 

NPLENMP 

3134 

IS = 0 

NPLENMP 

3135 

CONTINUE 

NPLENHP 

3136 

AJ=J-1 

NPLENHP 

3137 

DR2=DE* (2.0*(RIN (ISLICE) +AJ*DE) -DR) 

NPLENMP 

3138 

TT1 (J) =TT1 (J-1 ) +C3*DR2 

NPLENHP 

3139 

KSIG=0 

NPLENMP 

3140 

AZ=DPLN (ISLICE) /APLN (ISLICE) 

NPLENMP 

3141 

REY=Z3*AZ 

NPLENMP 

3142 

PP = SQET (BETTA ( 1) ) 

NPLENMP 

3143 

SIGMA (1) =SQRT (SIGMA (1) ) 

NPLENMP 

3144 

BETTA(1)= PP 

NPLENMP 

3145 

TP = B (1) 

NPLENMP 

3146 

G2= (W (ISLICE) /36 00, 0) **2*R/32. 17 U 

NPLENMP 

3147 

G1= G2/CP/778. 161 

NPLENMP 

3148 

D1= (WS*3. 1415927/30.0) ** 2* DR/DX/32. 174 

NPLENMP 

3149 

D2= DI/778. 161/144.0 

NPLENMP 

3150 

REP = EIN (ISLICE) 

NPLENMP 

3151 

DO 97 J=2,NSTNS 

NPLENMP 

3152 

AZ=DPLN (ISLICE) /APLN (ISLICE) 

NPLENMP 

3153 

EEY= Z3*AZ 

NPLENMP 

3154 

F1(J)= .C79*REY** (-.25) 

NPLENHP 

3155 

IF (REY.LT. 2300.) FI (J) = 16.0/REY 

NPLENMP 

3156 

PTEMP = BETTA (J-1 ) 

NPLENHP 

3157 

TTEHP=B (J-1) 

NPLENMP 

3158 

ETEMP = REP 

NPLENHP 

3159 

MACH1=1 

NPLENMP 

3160 

XNN=2.0 

NPLENMP 

3161 

DD=DPLN (ISLICE) 

NPLENMP 

3162 

AA= APLN (ISLICE) 

NPLENMP 

3163 

GO TO 85 

NPLENMP 

3164 

HACH1=XNN 

NPLENMP 

3165 

HRITE(6,83) ISLICE, J 

NPLENMP 

3166 

FORMAT (5X, 9H****** , 50 HDECREAS ED INCREMENT 

DEBIVATIVE CHANGING NPLENMP 

3167 

1 TOO FAST, 3X, • BRANCH NO. ',12,', STATION NO. 

• rl2/) NPLENMP 

3168 

XNN=XNN*2.0 

NPLENHP 

3169 

DX=DX/2.0 

NPLENHP 

3170 

PTEMP=BETTA (J-1) 

NPLENMP 

3171 

TTEMP=B (J-1) 

NPLENHP 

3172 

PP = PTEHP 

NPLENHP 

3173 

TP = TTEMP 

NPLENHP 

3174 

REP =RTEMP 

NPLENMP 

3175 

DD= DPLN (ISLICE) 

NPLENHP 

3176 

AA= APLN (ISLICE) 

NPLENHP 

3177 

DO 91 L=1,4 

NPLENMP 

3178 

V1=G1/PP/AA**2/(1 .0*G1*R*TP/(PP*AA) **2) 

NPLENMP 

3179 

TEEM1=TP*G2/(PP*AA) **2 

NPLENHP 

3180 
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87 

89 


91 

93 


95 


97 

C 

99 


C 


109 


TEEH2=G1*CP*778. 16 1*R*TP*TP* VI/ (PP*AA) »*2/PP 

NPLENMP 

3181 

TESTBA=1 .0-TEBM1 +TEEn2 


NPLENMP 

3182 

IF (TESTMA.LE.0.0) GO TO 159 


NPLENHP 

3183 

XK(L)= F0NP(F1(J)) 


NPL2NMP 

3184 

IF (I..EQ.1) GO TO 89 


NPLENHP 

3185 

DO 87 LL=2,L 


NPLENHP 

3186 

XTEST=ABS ( (XK (I) -XK (LL- 1 ) ) /PP) 


NPLENHP 

3187 

IF (XTEST.GT. DIFTOL) GO TO 81 


NPLENHP 

3188 

CONTINOE 


NPLENHP 

3189 

XL{L) =FUNT (XK (L) ) 


NPLENHP 

3190 

IF (L.EQ.4) GO TO 93 


NPLENHP 

3191 

PP =PTEHP+XK(L) /2.0 


NPLENHP 

3192 

TP =TTEMP*XL (I.)/2.0 


NPLENHP 

3193 

IF (L.EQ.2) GO TO 91 


NPLENHP 

3194 

ERP=REP+DB/XNN 


NPLENHP 

3195 

IF (L.NE.3) GO TO 91 


NPLENHP 

3196 

PP =PTEMP*XK(L) 


NPLENHP 

3197 

TP =TTEMP*XL (L) 


NPLENHP 

3198 

CONTINOE 


NPLENHP 

3199 

PP =PTEMP+XK(L) 


NPLENHP 

3200 

TP =TTE»P+XL(L) 


NPLENHP 

3201 

IF (PP.LE.O.O.OR.TP. LE.0.0) GO TO 159 


NPLENHP 

3202 

V1 = G1/PP/AA**2/(1.0 + G1*E*TP/(PP*AA) **2) 


NPLENHP 

3203 

TEE(11=TP*G2/(PP*AA) **2 


NPLENHP 

3204 

TEEB2=G1*CP*778. 161’»E*TP*TP*V1/ (PP*AA) **2/PP 

NPLENHP 

3205 

TESTM A= 1 . 0-TEEM 1 +TEEB2 


NPLENHP 

3206 

IF (TESTBA.LE.0.0) GO TO 159 


NPLENHP 

3207 

BETTA(J)=PTEBP+(XK{1) ♦2.0* (XK(2) ♦XK(3) ) 

♦XK{4) )/6.0 

NPLENHP 

3208 

B(J) =TTEBP+ (XL(1) ♦2.0*(X1(2) +XL{3) ) ♦XL(4) )/6. 0 

NPLENHP 

3209 

PP = BETTA (J) 


NPLENHP 

3210 

IF (B(J) .LE.O.O.OR.BETTA(J) .LE.0.0) GO 

TO 159 

NPLENHP 

3211 

TP =B (J) 


NPLENHP 

3212 

IF (BACH1.EQ. 1) GO TO 95 


NPLENHP 

3213 

BACH1=BACH1-1 


NPLENHP 

3214 

PTEBP = PP 


NPLENHP 

3215 

TTEBP = TP 


NPLENHP 

3216 

GO TO 85 


NPLENHP 

3217 

XNN=2.0 


NPLENHP 

3218 

DX=DXTEBP 


NPLENHP 

3219 

SIGBA (J) =B (J) /APIN (ISLICE) /BETTA (J) *SQET (Z4) 

NPLENHP 

3220 

ABC (J) =SIGBA (J) *SQRT (1 .0/B(J) ) *C5 


NPLENHP 

3221 

IF (ABC(J) .GE.1.0) GO TO 159 


NPLENHP 

3222 

FI (J)=REY 


NPLENHP 

3223 

TT1 (J) =B (J) * (1 . 0+C6* ABC ( J) **2) -460. 0 


NPLENHP 

3224 

CONTINOE 


NPLENHP 

3225 

ALL STATIONS COBPUTED 


NPLENHP 

3226 

SIGC = 1.0 


NPLENHP 

3227 

ABC (NSTNS) =ABC (NSTMS) /SIGC 


NPLENHP 

3228 

IF (AHC(NSTNS) .GT.1.0)GO TO 159 


NPLENHP 

3229 

BETTA (NSTNS) =BETTA (NSTNS) *SIGC**2 


NPLENHP 

3230 

RESTART CHOKED BRANCH IF B. LT. .8 


NPLENHP 

3231 

IF (CH(ISLICE) .EQ.0..OF.CH(ISLICE) .EQ.1 

.) GO TO 113 

NPLENHP 

3232 

IF (ACH.EQ. (-1 .0) ) GO TO 113 


NPLENHP 

3233 

ACH=-1. 


NPLENHP 

3234 

AB=0. 


NPLENHP 

3235 

DO 109 J=1, NSTNS 


NPLENHP 

3236 

IF (AHC(J) .GT..8) GO TO 113 


NPLENHP 

3237 

IF (ABC (J) .LT.AB) GO TO 109 


NPLENHP 

3238 

AB=ABC(J) 


NPLENHP 

3239 

CONTINUE 


NPLENHP 

3240 


106 




CH(ISLICE)=0.0 

NPLBNHP 

3241 


AJ= (Gi(!*1.)/2. 

NPLENflP 

3242 


CX=- (GIH* 1.00)/ (GAM- 1.0)/2.0 

NPLENMP 

3243 


A2=. 95/AB* (1.0+C6*.90) ♦♦ (CX) * (1. 0*C6*AB**2) **(-CX) 

NPLBNHP 

3244 


»CHOKE=« (ISLICE) 

SPLENHP 

324 5 


« (ISLICE) =AZ*» (ISLICE) 

NPLENHP 

3246 


SUITE (6,111) ISLICE, » (ISLICE) ,HCHOKE 

NPLENMP 

3247 

111 

FORHAT(8X,6H******,23H RESTART CHOKED BRANCH ,I5,24H PLOW RATE 

INCNPLENMP 

3248 


IREASED TO ,F10.4,6H FROM ,F10.4,7H ******) 

NPLENMP 

3249 


GO TO 177 

NPLENHP 

3250 

113 

BETA1=PIN (ISLICE) **2 

NPLENMP 

3251 

C 

CALCULATE THE CHOKING FLOS HATE 

NPLENMP 

3252 


AB=0.0 

NPLENMP 

3253 


DO 115 J=1,NSTNS 

NPLENMP 

3254 


IF (ABC(J) .LT.AB) GO TO 115 

NPLENHP 

3255 


AB=AMC (J) 

NPLENMP 

3256 

115 

CONTINUE 

NPLENMP 

3257 


AJ= (GAB*1.0)/2.0 

NPLENMP 

3258 


CX=- (GAB + 1.0)/(GAB-1.0)/2.0 

NPLENMP 

3259 


AZ=.95/AB*(1.0+C6*.90) *♦ (CX) ♦ ( 1 . 0+C 6*AB**2) (-CX) 

NPLENMP 

3260 

C 

COMPUTE RESISTANCE EQUATION FOB BALANCE 

NPLENMP 

3261 


PT1= (1.0+C6*AHC (1)**2)** (Cl/2.0) *BETTA (1) 

NPLENMP 

3262 


IF (C3.NE.0.0) GO TO 117 

NPLENMP 

3263 


GO TO 119 

NPLENMP 

3264 

117 

DE2 = ROUT (ISLICE) **2-RIN ( ISLICE) **2 

NPLENMP 

3265 

119 

PEXTT=PT1* (1 . 0+C3/T1*DR2) (Cl/2. 0) 

NPLENMP 

3266 

121 

CONTINUE 

NPLENMP 

3267 


Z1 (ISLICE) = (PEXTT*’*2-BETTA (NSTNS) ♦*2)/H (ISLICE) **2 

NPLENMP 

3268 


IF (Z1 (ISLICE) .GT. 0.0) GO TO 129 

NPLENMP 

3269 


WRITE (6, 125) ISLICE, ZI(ISLICE) 

NPLENMP 

3270 

125 

FORMAT (///5X, • PASSAGE *,I3,5X,*HAS NEGATIVE OR NO RESISTANCE* 

NPLENMP 

3271 


Z ,F12.4//) 

NPLENMP 

3272 


Z1 (ISLICE) =ZED 

NPLENMP 

3273 

U9 

CONTINUE 

NPLENMP 

3274 


PP = BETTA (NSTNS) ♦( 1 . +C6*AMC(NSTNS) **2) ** (Cl/2.0) 

NPLENHP 

3275 


PTEXIT = PP 

NPLENMP 

3276 


DIFTOL=0. 005 

NPLENMP 

3277 


KTR 1=0 

NPLENMP 

3278 

C 


NPLENMP 

3279 

C 

COMPUTE AVERAGE STATIC PRESSURE AND STATIC TEMPERATURE 

NPLENMP 

3280 

c 


NPLENHP 

3281 


PXX = 0.0 

NPLENMP 

3282 


TXX = 0.0 

NPLENMP 

3283 


DO 134 I = 1, NSTNS 

NPLENMP 

3284 


TXX = TXX + B (I) 

NPLENMP 

3285 

134 

PXX = PXX + BETTA(I) 

NPLENMP 

3286 


TXX = TXX/XXN - 460. 

NPLENHP 

3287 


PXX = PXX/XXN 

NPLENMP 

3288 


TTEXIT = TT1 (NSTNS) 

NPLENHP 

3289 


RETURN 

NPLENMP 

3290 

C 


NPLENMP 

3291 

CCOMPUTE ACC2LEPATION 

NPLENMP 

3292 

C 


NPLENMP 

3293 

135 

D=SV (2) -SV (1) 

NPLENMP 

3294 

137 

D=(SV(3)-SV(2))/D 

NPLENMP 

3295 


E=ABS (D) -1 .0 

NPLENMP 

3296 


IF (ABS(D).GT..6) GO TO 143 

NPLENMP 

3297 

139 

E=D/(D-1 .0) 

NPLENMP 

3298 

14 1 

SIGB=E*SV (2) ♦ (1.0-E) *SV (3) 

NPLENMP 

3299 

143 

IS = 0 

NPLENMP 

3300 
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145 SIGC=SIGB 

IF (SIGC.LE.O.) GO TO 159 
147 KSIG=KSIG+1 

IF (KSIG.LT.50) GO TO 155 
149 WRITE (6, 151) ISLICE, J 

151 FORMAT (7X,28HPROGRAH IS LOOPING IN BRANCH, 16, 9H STATION, 14//) 
KSIG=0 
HCC=NCC+1 

IF (NCC.LT.4)GO TO 159 
153 ISLICE=220 
GO TO 129 
155 CONTINUE 

IF (NAG.LT.O) GO TO 45 
157 STOP 
C 

CCHOKING ADJUSTMENT 
C 

159 WCHOKE=H (ISLICE) 

OIFTOL=0.C50 

161 IF (CH (ISLICE) . EQ.O.) GO TO 165 
163 W(ISLICE)=.98*H(ISLICE) 

IF (KTF1.GT.20) H ( ISLICE) =H ( ISLICE) *. (KTP. 1 -20) 

GO TO 171 
165 AB=0. 

IF (J.EQ. 1) GO TO 169 
DO 167 IJK=1,J 

IF (AMC (UK) . GT. 1.0) AMC(IJK)=1.0 
IF (AMC (UK) . LT.AB) GO TO 167 
AB=AMC (UK) 

167 CONTINUE 

AJ=(GAM+1.)/2. 

CX=- (GAM + 1. 00)/(GAM-1.0) /2.0 

AZ=. 95/AB* (1.0+C6*.90) ** (CX) * (1 . 0+C6’*AB**2) ** (-CX) 

W (ISLICE) =AZ*H (ISLICE) 

GO TO 171 
169 CONTINUE 

H (ISLICE) =160 0.0* APLN (ISLICE) *SQRT ( (32. 1 7*B ETA 1 *G AM ) / ( E»T1 ) ) 
171 CH(ISLICE)=1.0 

173 WRITE (6, 175) ISL ICE, J, W (ISLICE) , WCHOKE 

175 FORMAT (3X, 12H*** PASSAGE ,I5,23H HAS CHOKED AT STATION ,15, 

134H AND THE FLOW HAS BEEN REDUCED TO ,F10.4,6H FROM ,F10.4,4H 


177 IS=0 

BETTA (1) =PIN (ISLICE) **2 
B(1) =T1 
DX=DXTEMP 
J = 1 

SIGB=0.0 

KTE1=KTR1+1 

IF (KTR1.GE.50) GO TO 181 
179 GO TO 17 

181 WRITE (6,183) ISLICE 

183 FORMAT (/2X,16H**FLOW IN BRANCH, 16, 
Z • HAS BEEN REDUCED 5C TIMES 

GO TO 153 
END 


NPLENMP 3301 
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C SOURCE. NPLOT IT 

SUBROUTINE PLOTMF (ALPH2) 

SOURCE. NPLOTIT 


NPLOTIT 3356 
NPLOTIT 3357 
NPLOTIT 3358 
NPLOTIT 3359 
NPLOTIT 3360 
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COMMON 

/PKPS/ CPO, 

GAMO, 

DP (80) , 

SP(80), RE (80), 

NPLOTIT 

3361 


CPC (80) , 

GAMC (80) , 

DOMR1 (80) , 

D0MR2 (80) 

NPLOTIT 

3362 






NPLOTIT 

3363 

COMMON 

/SPECL/ CHANL(600C) , TITLE(30), INDCHN (2000) , 

NPLOTIT 

3364 


IPLOT, 

MDI, MD2, 

MD3, lADJIN, IWRITE 

NPLOTIT 

3365 






NPLOTIT 

3366 

COMMON 

/ICO/ ADUMF, 

ETA, 

CD, 

CP, 

NPLOTIT 

3367 


GAM, 

PIM, 

Hr 

SPAN, TOG, 

NPLOTIT 

3368 


WDUMP, 

WIN, 

AKC(15,80), AKH(15,80), 

NPLOTIT 

3369 


A (400) , 

AJET (80) , 

AM2 (80) , 

CNOM(80) , 

NPLOTIT 

3370 


DH (80) , 

DBF (80) , 

DHJ (80) , 


NPLOTIT 

3371 


DLX (4 00) , 

FF (8C) , 

HC(80) , 

HG(80) , 

NPLOTIT 

3372 


P(2, 15,80) 

,PEXIT (1 5) , 

POMP (80) , 

QG(80) , 

NPLOT IT 

3373 


QSNK (8 0) , 

RR (80) , 

S (15) , 

T(2,15,400) , 

NPLOTIT 

3374 


TG (80) , 

TAU (400) , 

BFC (80) , 


NPLOTIT 

3375 


WJ (15,80) , 

WCROS (2,15 

,30) , 

XN (80) , 

NPLOTIT 

3376 


ICOR, 

IFILM, 

IHOB, 

ITIP, 

NPLOTIT 

3377 


IS3L0K, 

ISLICE, 

NBLKSZ, 

NSLICE, 

NPLOTIT 

3378 


NF«D, 

NSTA, 

IHC (80) 


NPLOTIT 

3379 






NPLOTIT 

3380 

COMMON 

/TRNSNT/ RHOC, 

RHOM, 

SPHTC, 

SPHTM, 

NPLOTIT 

3381 


DLTYHE, 

TYME, 

TEPS, 

TYMM AX 

NPLOTIT 

3382 






NPLOTIT 

3383 

COMMON 

/UNITS/ CINCH(2) 

, CHTC(2) , 

CHFLX{2) , 

CPRSR(2) , CHSFL(2) , 

NPLOTIT 

3384 


CTMPF (2) 

, CTCON (2) , 

CDEN (2) , 

CSPHT(2), CGASC(2), 

NPLOTIT 

3385 


CVISC (2) 

, CRHOVG(2) 

,IONITS 


NPLOTIT 

3386 


YLBL (20) , XLBL (20) 


V 

V 


DIMENSION Y (320) ^XLABL (29) ,YLABL (7) ^TLABLl (21) ,TLABL2(9) 
DIMENSION XLABL2 (15) rVAPIB(15) ,YPLABL(10) , ALPH2(4)^ ALABL(7) 
DIMENSION XS(80)^ XP(80), TSO (50 0 ) , TS M (500) , TPO (500) , TPM (500) 
DIMENSION YLAEL2 ( 11) 

DIMENSION PLEGN(5), SLEGN(5), SYMBL(IO) 

DIMENSION YTEW(80), ISYM(5), PLTYHE(2) 

LOGICAL*! IXAX/. TRUE./, lYAX/. FALSE./ 

INTEGER*2 NPTS 

DIMENSION RTNARR (2) , VARS ( 1 2) , I V A RS ( 1 2) 

DATA PLEGN/«A) • , • P RES • , • S U RE • , * SID»,'E 
DATA SLEGN/»B) • , ' S UCT * , • ION SID*,'E 

DATA XLABL2/15** V 
DATA SYMBOL/»0*/ 

DAT A XLABL/’MID-* , ’WALL • , • X/L» 

Ij t l, f t 

Z , • • , • SID* , * E; C* 

z ,*ss.=*,* *,* • 

DATA YIABL/*- 

DATA YPLABL/* CO * , * OL AN • , * T CH*, 

Z ,*SSUR*,»E, '^'PSIA*/ 

DATA YLABL2/7** *,» TEMP *,* ERA T« ,• URE, • F •/ 

DATA TLABL1/21** •/ 

DATA TLABL2/9** •/ 

DATA VARIB/*PRES* , * SORE* SUC* , * TION* , • SOBF • , * ACE • , * MID- • , 


1, 


• FRO*,*M ST* , * ATIO* , • N NO • , • . 

• INC*,*HES *^* *,* *,* 

•HNL *,* *,*; PL*,*ENOM*,* PFE 

• PSI*,*A****/ 


— • , • TEMP* ,* ERAT* , *URE, » , * DEG*, *• F. *, * •/ 

,*ANNE*,*L T*,*OTAL*,* PRS* 


Z 'WALL*,* CM *,* *,* KPA* 

DATA ALABL/2** *,* * , 2* * 

DATA SYMBL/* 1 * , *2*, *3* , *4* , *5*^ 

DATA IS YM/6 2^ 11 9, 11 8, 70,65/ 

DATA PLTYHE/2** •/ 

ATYME = TYME 

IF (ATYME. LT. 0.0) ATYME = 0.0 
CALL NUMBER (4, ATYME, 8,2, PLTYHE) 
ALABL (6) = PLTYME (1) 


, • K 



6*, *7*,*8*- 


KP*, 

V 

' 0 */ 


V 


NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

* NPLOTIT 

* NPLOTIT 

* NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 


3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 
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ALABL(7) = PLTYBE(2) 

c 

C MD2 > 0 INDICATES JOB IS COMPLETE. — NOW DO SOHMABY PLOTS. 
C 

10 CONTINUE 

IF (HD2.GT.0) GO TO 80 
20 NSTAPS = NSTA/2 + 1 

NLBLS = NSTAPS/5 
C 

C SET UP TIME AND DATE LABEL FOE PLOT IDENTIFICATION 
C 

ALABL(I) = ALPB2(3) 

ALABL(2) = ALPU2 (4) 

ALABL(3) = ALPH2(1) 

ALABL(4) = ALPH2 (2) 

C 

C SET DP TITLE 
C 

DO 45 I = 1,30 

IF (I.LE.21) TLABLI(I) =TITLE(I) 

IF (I.GT.21) TLABL2(I-21) = TITLE(I) 

45 CONTINUE 
C 

C PEESSUEE SIDE 
C 

46 IF (MD3.GT.1) GO TO 55 

47 XP(1) = 0.0 

IX = 1 

DO 50 I = 3,NSTA,2 
C 

C NUn IS THE (IIDHETAL NODE NUHBEE (L) 

C 

NMM = 5*1 - 2 
IX = IX ♦ 1 

50 XP(IX) = XP(IX-I) + DLX(NBK)/CINCH(IUNITS) 

XPL = XP (NSTAPS) 

DO 51 I = 2, NSTAPS 

51 XP(I) = XP(I)/XPL 

55 CONTINUE 

lY = 0 

ITP = NSTAPS* (ISLICE-1) 

DO 60 I = 1 ,NSTA,2 
lY = lY + 1 
NOS = 5*1 - 4 

Y{IY) = T(2,ISLICE,NOS)/CTBPF (lUNITS) 

IF (IDNITS. EQ.2) Y(IY) = Y(IY) - 460. 

ITP = ITP ♦ 1 
TPO(ITP) * T(IY) 

IIP = lY + NSTAPS 

T(IYP) = T(2,ISLICE,N0S+1)/CTBPF(I0NITS) 

IF (lUNITS. EQ.2) Y(IYP) = Y (lYP) - 460. 
lYP = IT ♦ 2*NSTAPS 

I (IIP) * T (2, ISLICE,N0S*2)/CTfiPF (lUNITS) 

IF (IDNITS. EQ.2) Y(IIP) = I (IIP) - 460. 

TPH(ITP) = Y(IYP) 

IIP = lY ♦ 3*NSTAPS 

Y(IIP) = T (2, ISLICE,NOS + 3) /CTHPF (lUNITS) 

IF (IDNITS. EQ.2) I (IIP) = I (IIP) - 460. 

IIP = II ♦ 4*NSTAPS 
NCOOL = NOS ♦ 4 


NPLOTIT 3421 
NPLOTIT 3422 
NPLOTIT 3423 
NPLOTIT 3424 
NPLOTIT 3425 
NPLOTIT 3426 
NPLOTIT 3427 
NPLOTIT 342P 
NPLOTIT 3429 
NPLOTIT 3430 
NPLOTIT 3431 
NPLOTIT 3432 
NPLOTIT 3433 
NPLOTIT 3434 
NPLOTIT 3435 
NPLOTIT 3436 
NPLOTIT 3437 
NPLOTIT 3438 
NPLOTIT 3439 
NPLOTIT 3440 
NPLOTIT 3441 
NPLOTIT 3442 
NPLOTIT 3443 
NPLOTIT 3444 
NPLOTIT 3445 
NPLOTIT 3446 
NPLOTIT 3447 
NPLOTIT 3448 
NPLOTIT 3449 
NPLOTIT 3450 
NPLOTIT 3451 
NPLOTIT 3452 
NPLOTIT 3453 
NPLOTIT 3454 
NPLOTIT 3455 
NPLOTIT 3456 
NPLOTIT 3457 
NPLOTIT 3458 
NPLOTIT 3459 
NPLOTIT 3460 
NPLOTIT 3461 
NPLOTIT 3462 
NPLOTIT 3463 
NPLOTIT 3464 
NPLOTIT 3465 
NPLOTIT 3466 
NPLOTIT 3467 
NPLOTIT 3468 
NPLOTIT 3469 
NPLOTIT 3470 
NPLOTIT 3471 
NPLOTIT 3472 
NPLOTIT 3473 
NPLOTIT 3474 
NPLOTIT 3475 
NPLOTIT 3476 
NPLOTIT 3477 
NPLOTIT 3478 
NPLOTIT 3479 
NPLOTIT 3480 
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I 


r(IIP) = T(2,ISL1CE,HC00L)/CTHPF(IUM1TS) 

60 IF (lONITS. EQ.2) T(ITP) = I (lYP) - 460. 

XLABL(16) = VABIB(I) 

XLABL(17) = VABIB{2) 

IF (IONITS.EQ.2) GO TO 601 
XLABL(12) = VABIB(9) 

XLABL(13) = VABIB(IO) 

XLABL(28) = VABIB(II) 

XLABL(29) = ?ABIB(12) 

YLABL(5) = VABIB(13) 

YLABL(6) = VABIB(IO) 

IPLABL(IO) = VABIB(II) 

TLABL2(11) = VARIB(13) 

601 CONTINUE 

DO 611 I = 1, 15 
611 XLABL2(I) = XLABL(I*15) 

C 

IF (IPLOT.EQ.3) GO TO 63 
C 

CPIH = PIN/CPBSB (lONITS) 

CALL NOMBEE (1 , ISLICE ,4 , C , XLABL2 (6)) 

CALL NUMBER (4, CPIH, 8, 1,XLABL2(11) ) 

CALL NUMBER (4 ,XPL,8,4,XLABL (10) ) 

CALL CHARS (84 , TLABL 1 , 0 . 0, 0 . 15,9.85,12) 

CALL CHARS (36 ,TLABL2 , 0 . C ,0 . 15,9.65,12) 

CALL CHARS (60, XLABL, 0 . 0, 1. 5, . 25, 1 2) 

CALL CHARS (56 , XLABL2 ,0 . C , 1 . 5 , . 05 , 1 2 ) 

CALL CHARS (28, YLABL, 90. , .25, 3.3, 12) 

MD3 = MD3 + 1 

CALL NUMBER (1 ,HD3,4, 0, ALA3L (5) ) 

CALL CHARS (28 , ALABL, 0 . 0 ,6 . 2 , 9 . 3 , 1 2 ) 

C 

C TITLES ARE DONE, NOW SET OP AXES FOP TEMPERATURE PLOTS 

C 

NPTS = NSTAPS 

CALL SCALE (IXAX, NPTS, XP) 

NPTS = 5*NSTAPS 

CALL SCLBAK (I YAX,NPTS, Y, RTNAFR) 

CALL GINTVL (RTN ARE ( 1) , RTNARR (2) ,10, 1 , YMIN, YMAX) 

VARS (1) =7.0 

VARS (2) =9.0 

VARS(3) = C.O 

VARS (4) = 0.0 

VARS (5) = 1.0 

VARS(6) = .5 

VARS(7) = 1.0 

CALL XAXIS (.8, .6, VARS) 

VARS(2) = 8.9 
VARS (3) = 90. 

VARS (4) = YMIN 

VARS (5) = YMAX 

CALL YAXIS (.8,.6,VARS) 

C 

C AXES ARE SET. NOW PLOT THE FIVE TEMPSRATORE CORVES, USING 

C DIFFERENT SYMBOLS FOR EACH. 

C 

IVARS(I) = 4 
IVARS(2) = NSTAPS 
IVARS(3) = 2 
DO 603 I = 1,5 
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NPLOTIT 3483 
NPLOTIT 3484 
NPLOTIT 3485 
NPLOTIT 3486 
NPLOTIT 3487 
NPLOTIT 3488 
NPLOTIT 3489 
NPLOTIT 3490 
NPLOTIT 3491 
NPLOTIT 3492 
NPLOTIT 3493 
NPLOTIT 3494 
NPLOTIT 3495 
NPLOTIT 3496 
NPLOTIT 3497 
NPLOTIT 3498 
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NPLOTIT 3505 
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NPLOTIT 3507 
NPLOTIT 3508 
NPLOTIT 3509 
NPLOTIT 3510 
NPLOTIT 3511 
NPLOTIT 3512 
NPLOTIT 3513 
NPLOTIT 3514 
NPLOTIT 3515 
NPLOTIT 3516 
NPLOTIT 3517 
NPLOTIT 3518 
NPLOTIT 3519 
NPLOTIT 3520 
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NPLOTIT 3524 
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NPLOTIT 3531 
NPLOTIT 3532 
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IVABS(«) = israd) 

NPLOTIT 

3541 


lYST = 1 ♦ (I-1)*NSTAPS 

NPLOTIT 

3542 


lYEN = I*NSTAPS 

NPLOTIT 

3543 


III = 0 

NPLOTIT 

3544 


DO 602 II = lYST.IYEN 

NPLOTIT 

3545 


III = III + 1 

NPLOTIT 

3546 

60 2 

YTEn(III) = Y(II) 

NPLOTIT 

3547 


CALL GPLOT(XP,YTEM,IVARS) 

NPLOTIT 

3548 

60 3 

CONTINUE 

NPLOTIT 

354 9 


CALL DISPLA(I) 

NPLOTIT 

3550 

C 


NPLOTIT 

3551 

c 


NPLOTIT 

3552 

C PRESSOBE SIDE COOLANT PRESSURE DISTRIBUTION 

NPLOTIT 

3553 

c 


NPLOTIT 

3554 


lY = 0 

NPLOTIT 

3555 


DO 61 I = 1,NSTA,2 

NPLOTIT 

3556 


lY = lY ♦ 1 

NPLOTIT 

3557 

61 

Y(IY) = P (2,ISLICE,I) * 

NPLOTIT 

3558 


Z (1. ♦ (GAHC(I) -1.)*AH2 (I)/2.)** (GANG (I)/ (GAMC (I) - 1 . ) ) /C P5SR (lU NITS) NPLOTIT 

3559 


CALL CHARS ( 84 ,TLABL1 , 0 . 0, 0 . 15,9 .85, 12) 

NPLOTIT 

35tC 


CALL CHARS (36,TLABL2, 0.0,0. 15,9.65,12) 

NPLOTIT 

35b1 


CALL CHARS (60 , XLABL, 0 . 0 , 1.5, . 25, 12) 

NPLOTIT 

3562 


CALL CHARS (56 , XLABL2 ,0 . 0 ,1 . 5 , . 05 , 1 2 ) 

NPLOTIT 

3563 


CALL CHARS (40 , YPLABL , 90 . , . 2 5, 2. 8,12) 

NPLOTIT 

3564 


«D3 = MD3 ♦ 1 

NPLOTIT 

3565 


CALL NUHBER(1,BD3,4,0,ALABL(5)) 

NPLOTIT 

3566 


CALL CHARS (28 , ALABL, C . 0 ,6. 2 ,9 . 3 , 1 2) 

NPLOTIT 

3567 


NPTS = NSTAPS 

NPLOTIT 

3568 


CALL SCALE (IXAX, NPTS, XP) 

NPLOTIT 

3569 


CALL SCLBAK (IYAX,NPTS,y,RTNARF) 

NPLOTIT 

3570 


CALL GINTVL (RTNARR (1 ) , RTNARR (2) , 10 , 1 , Y MIN, Y K AX) 

NPLOTIT 

3571 


VARS(I) = 7.0 

NPLOTIT 

3572 


VARS(2) = 9.0 

NPLOTIT 

3573 


VARS (3) = 0.0 

NPLOTIT 

3574 


VARS(4) = 0.0 

NPLOTIT 

3575 


VARS(5) = 1.0 

NPLOTIT 

3576 


VABS(6) = .5 

NPLOTIT 

3577 


VARS (7) = 1.0 

NPLOTIT 

3578 


CALL XAXIS (.8,.6,VARS) 

NPLOTIT 

3579 


VARS (2) = 8.9 

NPLOTIT 

358C 


VARS(3) = 90. 

NPLOTIT 

3581 


VARS (4) = YMIN 

NPLOTIT 

3582 


VARS (5) = YMAX 

NPLOTIT 

3583 


CALL YAXIS (.8, .6,VARS) 

NPLOTIT 

3584 

C 


NPLOTIT 

3585 

c — 

AXES ARE SET, NON PLOT THE PRESSURE 

NPLOTIT 

3586 

c 


NPLOTIT 

3567 


IVARS (1) =4 

NPLOTIT 

3586 


IVARS(2) = NSTAPS 

NPLOTIT 

3589 


IVARS (3) = 2 

NPLOTIT 

35S0 


IVARS (4) = 65 

NPLOTIT 

359 1 


CALL GPLOT (XP,Y, IVARS) 

NPLOTIT 

3592 


CALL DISPLA(I) 

NPLOTIT 

3593 

c 


NPLOTIT 

3594 

C SUCTION SIDE 

NPLOTIT 

3595 

c 


NPLOTIT 

3596 


IF ((1D3.GT.2) GO TO 69 

NPLOTIT 

3597 

63 

XS(1) = C.O 

NPLOTIT 

3598 


IX = 1 

NPLOTIT 

3599 


DO 65 I = 2,NSTA,2 

NPLOTIT 

3600 
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NMM - 5*1 • 2 

IX = IX + 1 

XS(IX) = XS(IX-I) + DLX(NMM)/CINCH(IUNITS) 
XSL = XS(NSTAPS) 

DO 66 I = 2,NSTAPS 
XS(I) = XS(I)/XSL 
CONTINUE 

lY = 1 

ITS = NSTAPS* (ISLICE-1) + 1 

Y (lY) = T (2,ISLICEr 1)/CTMPF (lUNITS) 

IF (lUNITS.EQ. 2) Y(IY) = Y(IY) - 460- 
TSO (ITS) = Y (lY) 

lYP = lY + NSTAPS 

Y (lYP) = T (2,ISLICE,2) /CTMPF (lUNITS) 

IF (lUNITS. EQ, 2) Y (lYP) = Y (lYP) - 460. 
lYP = lYP + NSTAPS 

Y(IYP) = T (2, ISLICE, 3) /CTMPF (lUNITS) 

IF (lUNITS. EQ.2) Y (lYP) = Y (lYP) - 460. 

TSM (ITS) = Y (lYP) 
lYP = lYP + NSTAPS 

Y(IYP) = T(2rISLICE^4)/CTMPF.(IUNITS) 

IF (lUNITS. EQ.2) Y(IYP) = Y (lYP) - 460. 
lYP = lYP + NSTAPS 

Y(IYP) = T (2rISLICE,5)/CTMPF (lUNITS) 

IF (lUNITS. EQ.2) Y (lYP) = Y (lYP) - 460. 

DO 70 I = 2,NSTA,2 
lY = lY + 1 
NOS = 5*1 - 4 

X (lY) = T (2 ^ISLICE^NOS) /CTMPF (lUNITS) 

IF (lUNITS. EQ.2) Y(IY) = Y(IY) - 460. 

ITS = ITS + 1 

TSO (ITS) = Y(IY) 
lYP = lY + NSTAPS 

Y(IYP) = T (2^ISLICE,NOS + 1) /CTMPF (lUNITS) 

IF (lUNITS. EQ.2) Y(IYP) = Y (lYP) - 460. 
lYP = lYP + NSTAPS 

Y(IYP) = T (2, lSLICE^NOS + 2) /CTMPF (lUNITS) 

IF (lUNITS. EQ.2) Y(IYP) = Y (lYP) - 460. 
TSM(ITS) = Y(IYP) 
lYP = lYP + NSTAPS 

Y(IYP) = T (2rISLICE,NOS + 3) /CTMPF (lUNITS) 
IF (lUNITS. EQ.2) Y (lYP) = Y (lYP) - 460. 
lYP = lYP + NSTAPS 
NCCOL = NOS + 4 

Y(IYP) = T(2,ISLICE,NCOOL) /CTMPF(IUNITS) 
IF (lUNITS. EQ.2) Y (lYP) = Y (lYP) - 460. 
XLABL2(1) = VAFIB(3) 

XLABL2(2) = VARIB(4) 

IF (IPLOT.EQ. 3) GO TO 80 

CALL NUMBER (1,ISLICE,4, 0,XLABL2 (6) ) 

CALL NUMBER (4 ,CPIM,8 ^ 1 , XLABL2 (11)) 

CALL NUMBER (4^XSL^8,4,XLABL (10) ) 

IX = 2 + NFHD/2 

CALL CHARS (84 ,TLABLl ,0 . 0 ,0 . 1 5 ,9 . 85 ^ 1 2) 
CALL CHARS (36,TLABL2, 0 • 0,0. 15,9.65,12) 
CALL CHARS (60 , XLABL,0 .0 , 1. 5 ,. 25,12) 

CALL CHARS (56, XL ABL 2, 0.0, 1.5,. 05, 12) 


N PLOT IT 

NPLOTIT 

N PLOT IT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 

NPLOTIT 


3601 

3602 
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3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 
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CALL CHARS (28,ILABL, 90. , .25,3.3,12) 

NPLOTIT 

3661 


MD3 = BD3 + 1 

NPLOTIT 

3662 


CALL NUMBER(1,HD3,4,0,ALABL(5)) 

NPLOTIT 

3663 


CALL CHARS (28 , ALABL,0 . 0 ,6. 2 ,9 . 3 , 1 2) 

NPLOTIT 

3664 

c 


NPLOTIT 

3665 

c — 

TITLES ARE DONE, NOW SET OP AXES FOB TEBPERATDRE PLOTS 

NPLOTIT 

3666 

c 


NPLOTIT 

3667 


NPTS = NSTAPS 

NPLOTIT 

3663 


CALL SCALE(IXAX,NPTS,XS) 

NPLOTIT 

3669 


NPTS = 5*NSTAPS 

NPLOTIT 

367C 


CALL SCLBAK (IIAX,NPTS,I,BTNARR) 

NPLOTIT 

3671 


CALL GINTVL(RTNARR(1) ,BTNARR(2) , 1 0, 1 , IBIN ,IBAX) 

NPLOTIT 

3672 


VARS(1) = 7.0 

NPLOTIT 

3673 


VAES(2) = 9.0 

NPLOTIT 

3674 


VARS(3) = 0.0 

NPLOTIT 

3675 


VARS (4) = 0.0 

NPLOTIT 

3676 


VARS(5) = 1.0 

NPLOTIT 

3677 


VARS(6) = .5 

NPLOTIT 

3678 


VARS (7) = 1 .0 

NPLOTIT 

3679 


CALL XAXIS (.8, .6,VARS) 

NPLOTIT 

3680 


VARS(2) = 8.9 

NPLOTIT 

3681 


VARS (3) = 90. 

NPLOTIT 

3682 


VARS (4) = IBIN 

NPLOTIT 

3683 


VARS (5) = IBAX 

NPLOTIT 

3684 


CALL lAXIS (.8,.6,VARS) 

NPLOTIT 

3685 

c 


NPLOTIT 

3686 

c — 

AXES ARE SET. NOH PLOT THE FIVE TEBPERATORE CURVES, USING 

NPLOTIT 

3687 

c 

DIFFERENT SIBBOLS FOE EACH. 

NPLOTIT 

3688 

c 


NPLOTIT 

3689 


IVARS(I) = 4 

NPLOTIT 

3690 


IVAES(2) = NSTAPS 

NPLOTIT 

3691 


IVARS(3) = 2 

NPLOTIT 

3692 


DO 703 I = 1,5 

NPLOTIT 

3693 


IVARS(4) = ISIH(I) 

NPLOTIT 

3694 


IIST = 1 + (I-1)*NSTAPS 

NPLOTIT 

3695 


IIEN = I*NSTAPS 

NPLOTIT 

3696 


III = 0 

NPLOTIT 

3697 


DO 702 II = IIST, IIEN 

NPLOTIT 

3698 


III = III + 1 

NPLOTIT 

3699 

702 

ITEB(III) = I (II) 

NPLOTIT 

3700 


CALL GPLOT(XS,ITEB,IVAES) 

NPLOTIT 

3701 

703 

CONTINUE 

NPLOTIT 

3702 


CALL DISPLA(I) 

NPLOTIT 

3703 

C 


NPLOTIT 

3704 

C 


NPLOTIT 

3705 

C SUCTION SIDE COOLANT PRESSURE DISTRIBUTION 

NPLOTIT 

3706 

C 


NPLOTIT 

3707 


1(1) = P (2,ISLICE,1) * 

NPLOTIT 

3708 


75 


Z (1.4- (GAHC (1) -1.)*AM2(1)/2.)** (GiHC (1)/(GAMC (1) -1.) )/CPRSF (lONITS) NPLOTIT 3709 
II = 1 NPLOTIT 3710 

DO 75 I = 2,NSTA,2 NPLOTIT 3711 

II = II ♦ 1 NPLOTIT 3712 

I (II) = P(2,ISLICE,I)*(1.+ (GAMC(I)-1.) NPLOTIT 3713 

Z ♦AH2(I)/2.)** (GAnC(I)/(GAHC (I)-1.))/CPESR(IUNITS) NPLOTIT 3714 


CALL CHARS (84 ,TLABL1 , 0. 0, 0. 15,9.85,12) 
CALL CHARS (36 ,TLABL2 ,0. 0 ,0 , 15 ,9 . 65 , 1 2) 
CALL CHARS (60, XLABL, 0. 0, 1.5, .25, 12) 
CALL CHARS (56 , XLABL2,0 . 0 ,1 . 5 ,. 05 , 1 2) 
CALL CHARS (40, IPLABL, 90 . , . 25,2. 8,12) 
HD3 = HD3 ♦ 1 


NPLOTIT 3715 
NPLOTIT 3716 
NPLOTIT 3717 
NPLOTIT 3718 
NPLOTIT 3719 
NPLOTIT 3720 
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non 


’CALL NUMBER (1 4,0, ALABL <5)) 

CALL CHARS (28, AL ABL, 0 . 0, 6. 2, 9 . 3 , 12) 

NPTS = NSTAPS 

CALL SCALE(IXAX,NPTS,XS) 

CALL SCLBAK (IXAX,NPTS,Y,ETNARR) 

CALL GINTVL (RTNARR(I) ,RTNARR (2) , 10, 1 , YMIN, YMAX) 

VARS(1) = 7.0 

VARS (2) = 9.0 

VARS(3) = 0.0 

VARS (4) =0.0 

VARS (5) = 1 .0 

VARS (6) = .5 

VARS (7) = 1 .0 

CALL XAXIS (.8, .6, VARS) 

VARS(2) = 8.9 
VARS (3) = 90. 

VARS(4) = YMIN 
VARS (5) = YMAX 
CALL XAXIS(.8,.6,VARS) 

AXES ARE SET, NON PLOT THE PRESSURE 

IVARS (1) = 4 
IVARS(2) = NSTAPS 
IVARS (3) = 2 
IVARS (4) = 65 
CALL GPLOT (XS, r, IVARS) 

CALL DISPLA(I) 

GO TO 150 
C 

C THE FOLLOWING SECTION PUTS OUT PLOTS CONTAINING TEMPERATURES FROM 
C ALL SLICES ON ONE FRAME 
C 

80 CONTINUE 

IF (ISLICE.LT.NSLICE) GO TO 150 
C 

C THE FOLLOWING PUTS TWO PLOTS ON ONE FRAME OF FILM 
C 

C FIRST PLOT THE OUTSIDE SURFACE TEMPERATURES FOP EACH 
C SLICE ON THE SAME PLOT 
C 

NPTS = NSTAPS*NSLICE 

CALL SC LEAK (I Y AX , NPTS , T PC, RTNARR) 

TMAXP = RTNARR (2) 

TMINP = RTNARR (1) 

CALL SCLBAK (I Y AX , N PTS, TSO, RTNARR ) 

TMA XS = RTNARR (2) 

TMINS = PTNARS(l) 

IF (TMAXS.GT. TMAXP) TMAXP = TMAXS 
IF (TMINS. LT. TMINP) TMINP = TMINS 
NINTRV = <TMAXP-'TMINP)/100. 2 

CALL GINTVL (TM INP, TMAXP , NINTRV, 0 , AT MI NP, ATM AX P) 

AINTRV = NINTRV 

CALL CHAPS (84 ,TLABL1 , 0 . 0 ,0 . 1 5 ,9 . 85 , 1 2) 

CALL CHARS ( 36 , TL ABL 2 , 0 . 0 , 0 . 15,9.65,12) 

YLABL2 (5) = VARIB (5) 

YLABL2 (6) = VARIB(6) 

CALL CHARS (44 ,YLABL2,9C. ,.25,1.6,12) 

VARS(1) = 8. 

VARS(2) = 8.5 


NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOT IT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 
NPLOTIT 


3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 
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n o 


VAES(3) = 0. 

TABS (4) = 0.0 

TABS (5) =1.0 

TABS (6) = .5 

TABS (7) =1.0 

TABS (8) = 0.0 

CALL XAXIS(1.2,5.5,VABS) 

MD3 = HD3 + 1 

CALL NOHBEE (1 ,HD3,4,0,ALABL (5) ) 

CALL CHAES(28,ALABL,0.0, 1. 3,9.5, 12) 
CALL CHABS(20,PLEGN,0.0,6.0,9.5,12) 
TABS (1) = 7. 

VABS(2) = 3.8 
TABS (3) = 90. 

TABS (4) = ATHINP 

TABS (5) = ATMAXP 
TABS (6) = AINTRV 

TABS (7) = 1. 

CALL IAXIS(1.2,5.5,VAES) 

DO 100 I = 1,NSLICE 
JST = NSTAPS* (1-1) 

DO 95 J = 1,NSTAPS 

95 Y(J) = TPO(JST+J) 

SYMBOL = SYMBL(I) 

KS = 0 

C 

C LABEL ETERY 10TH POINT WITH THE SLICE 

C IDENTIFY THE CORTES. 

KSTABT =1+1 

DO 98 K = KSTABT, NSTAPS, 10 

KS = KS + 1 

XLBL(KS) = XP(K) 

96 YLBL(KS) = Y(K) 

IVARS(I) = 6 
IVARS (2) = NLBLS 
IVARS(3) = 3 
IVABS (4) = 240 + 1 
IVARS (5) = 1 
IVARS (6) = 8 

CALL GPLOT(XLBL,YLBL, IVABS) 

IVARS(I) = 3 
IVARS (2) = NSTAPS 

IVARS (3) = 0 

100 CALL GPLOT (XP,Y, IVARS) 


VARS (1) =7. 

VABS(2) = 8.5 
VARS (3) = 0. 

VARS (4) = 0.0 

VARS (5) = 1 .0 

VARS (6) = .5 

VARS (7) = 1.0 

CALL XAXIS(1.2,.5,VARS) 

CALL CHARS (42, XLABL,0. 0,3.0,. 05, 12) 
VARS (1) =7. 

VARS(2) = 3.8 
VARS (3) = 90. 

VARS (4) = ATMINP 
VARS (5) = ATMAXP 


NPLOTIT 3781 
NPLOTIT 3782 
NPLOTIT 3783 
NPLOTIT 3784 
NPLOTIT 3765 
NPLOTIT 3786 
NPLOTIT 3787 
NPLOTIT 3788 
NPLOTIT 3789 
NPLOTIT 3790 
NPLOTIT 3791 
NPLOTIT 3792 
NPLOTIT 3793 
NPLOTIT 3794 
NPLOTIT 3795 
NPLOTIT 3796 
NPLOTIT 3797 
NPLOTIT 3798 
NPLOTIT 3799 
NPLOTIT 3800 
NPLOTIT 3801 
NPLOTIT 3802 
NPLOTIT 3803 
NPLOTIT 3804 
NPLOTIT 3805 
NPLOTIT 3806 

NUMBER, TO NPLOTIT 3807 

NPLOTIT 3808 
NPLOTIT 3809 
NPLOTIT 3810 
NPLOTIT 3811 
NPLOTIT 3612 
NPLOTIT 3813 
NPLOTIT 3814 
NPLOTIT 3815 
NPLOTIT 3816 
NPLOTIT 3817 
NPLOTIT 3813 
NPLOTIT 3819 
NPLOTIT 3820 
NPLOTIT 3821 
NPLOTIT 3822 
NPLOTIT 3823 
NPLOTIT 3824 
NPLOTIT 3825 
NPLOTIT 3826 
NPLOTIT 3827 
NPLOTIT 3828 
NPLOTIT 3829 
NPLOTIT 3830 
NPLOTIT 3631 
NPLOTIT 3832 
NPLOTIT 3833 
NPLOTIT 3634 
NPLOTIT 3835 
NPLOTIT 3836 
NPLOTIT 3837 
NPLOTIT 3838 
NPLOTIT 3839 
NPLOTIT 3640 
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non 


V^F.3 (6) = AINTEV 

VAES(7) = 1. 

CALL YAXIS (1. 2, .5,VAES) 

CALL CHARS (20 ,SLEGH,0 .0,6.0,4.5,12) 

DO 110 I = 1,NSLICE 
JST = NSTAPS* (1-1) 

DO 105 J = 1,NSTAPS 
105 Y(J) = TSO(JST+J) 

SYMBOL = SYH3L(I) 

KS = 0 

LABEL EVERY 10TH POINT WITH THE SLICE NUBBER, TO 

IDENTIFY THE CURVES. 

KSTART =1+1 

DO 108 K = KSTART, NSTAPS ,10 

KS = KS + 1 

XLEL(KS) = XS (K) 

1C8 YLBL(KS) = Y(K) 

IVARS (1) =6 

IVAES(2) = NLBLS 
IVARS(3) = 3 
IVARS (4) = 240 + 1 

IVARS (5) = 1 

IVARS (6) = 8 

CALL GPLOT (XLBL,YL3L, IVARS) 

IVARS(I) = 3 
IVARS (2) = NSTAPS 

IVARS (3) = 0 

lie CALL GPLOT (XS,Y, IVARS) 

CALL DISPLA(1) 

C 

C 

c 

C NOW PLOT THE BID-BETAL TEHPEEATURES FOR EACH SLICE, ALL ON ONE PLOT 
C 

112 CONTINUE 

CALL SCLBAK ( lY AX , KPTS, TPB, RTN ARE) 

T.HAXP = ETNARE(2) 

TBINP = ETNARR(I) 

CALL SCLBAK (I YAX , NPTS , TS M, RTNARR) 

TBAXS = ETNARR(2) 

THINS = RTNARR (1 ) 

IF (TMAXS.GT. TMAXP) THAXP = TMAXS 
IF (TMINS.lt. TBINP) TMINP = THINS 
NINTEV = (TMAXP-TMINP) /100 . + 2 

CALL GINTVL (TBINP, TH AXP , NINTE V, 0 , A TMINP , ATM AXP) 

AINTRV = NINTRV 

CALL CHAPS (84,TLABL1 , 0.0,0. 15, 9 .85, 12) 

CALL CHAES( 36 ,TLABL2,0.C, 0.15,9.65,12) 

YLABL2(5) = VAEIB(7) 

YLABL2(6) = VAEIB(8) 

CALL CHARS (44 , YLABL2, 90 . , . 25, 1.6,12) 

VAES(1) = 8. 

VARS (2) = 8.5 
VARS(3) = 0. 

VARS (4) = 0.0 
VARS (5) = 1.0 
VARS (6) = .5 
VARS{7) = 1.0 
VARS (8) = 0.0 


NPLOTIT 3841 
NPLOTIT 3842 
NPLOTIT 3843 
NPLOTIT 3844 
NPLOTIT 3845 
NPLOTIT 3846 
NPLOTIT 3847 
NPLOTIT 3848 
NPLOTIT 3849 
NPLOTIT 3850 
NPLOTIT 3851 
NPLOTIT 3852 
NPLOTIT 3853 
NPLOTIT 3854 
NPLOTIT 3855 
NPLOTIT 3856 
NPLOTIT 3857 
NPLOTIT 3858 
NPLOTIT 3859 
NPLOTIT 3860 
NPLOTIT 3861 
NPLOTIT 3862 
NPLOTIT 3863 
NPLOTIT 3864 
NPLOTIT 3865 
NPLOTIT 3866 
NPLOTIT 3867 
NPLOTIT 3868 
NPLOTIT 3869 
NPLOTIT 3870 
NPLOTIT 3871 
NPLOTIT 3872 
NPLOTIT 3873 
NPLOTIT 3874 
NPLOTIT 3875 
NPLOTIT 3876 
NPLOTIT 3877 
NPLOTIT 3878 
NPLOTIT 3879 
NPLOTIT 3880 
NPLOTIT 3881 
NPLOTIT 3882 
NPLOTIT 3883 
NPLOTIT 3884 
NPLOTIT 3885 
NPLOTIT 3886 
NPLOTIT 3887 
NPLOTIT 3888 
NPLOTIT 3889 
NPLOTIT 3890 
NPLOTIT 3891 
NPLOTIT 3892 
NPLOTIT 3893 
NPLOTIT 3894 
NPLOTIT 3895 
NPLOTIT 3896 
NPLOTIT 3897 
NPLOTIT 3898 
NPLOTIT 3899 


NPLOTIT 3900 
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^ r*, non 


CALL XAXIS ( 1. 2,5 .5, VARS) 

MD3 = MD3 + 1 

CALL NOHBEE (1,HD3,4, 0,ALABL (5) ) 

CALL CHARS (28 , ALABL , 0 . 0 , 1 . 3 ,9 . 5 , 1 2 ) 
CALL CHARS ( 20 , PL EGN , 0 . 0, 6. 0, 9 . 5, 12) 
VARS (1) =7. 

VARS (2) = 3.8 
VARS(3) = 90, 

VARS (4) = ATMINP 

VARS (5) = ATMAXP 

VARS (6) = AINTRV 

VARS (7) = 1. 

CALL YAXIS (1. 2,5.5,VARS) 

114 CONTINUE 

DO 120 I = 1,NSLICE 
JST = NSTAPS*(I-1) 

DO 115 J = 1,NSTAPS 

115 Y(J) = TPH(JST+J) 

SYMBOL = SYHBL (I) 

KS = 0 

LABEL EVERY 10TH POINT WITH THE SLICE 

IDENTIFY THE CORVES. 

KSTART =1+1 

DO 118 K = KSTART, NSTAPS, 10 

KS = KS + 1 

XLBL(KS) = XP(K) 

18 YLBL(KS) = Y(K) 

IVAPS (1) =6 

IVARS(2) = NLBLS 
IVARS (3) = 3 
IVARS(4) = 240+1 
IVARS (5) = 1 

IVARS (6) = 8 

CALL GPLOT (XLBL.YLBL, IVARS) 

IVARS (1) = 3 
IVARS (2) = NSTAPS 
IVARS (3) = 0 

'0 CALL GPLOT (XP,Y, IVARS) 


VARS(1) = 7. 

VARS (2) = 8.5 
VARS (3) =0. 

VARS(4) = 0.0 

VARS(5) = 1.0 

VARS(6) = .5 

VARS (7) = 1.0 

CALL XAXIS (1.2, .5, VARS) 

CALL CHARS (42, XLABL , 0 . 0, 3.5, .05, 15) 
VAES(1) = 7. 

VARS (2) = 3.8 
VARS (3) = 90. 

VARS (4) = ATMINP 
VARS (5) = ATMAXP 
VARS (6) = AINTRV 

VARS (7) = 1. 

CALL YAXIS (1.2,. 5, VARS) 

CALL CHARS (20 ,SLEGN , 0 . 0 ,6 . 0 ,4 . 5 , 1 2) 
DO 130 I = 1,NSLICE 


NPLOTIT 3901 
NPLOTIT 3902 
NPLOTIT 3903 
NPLOTIT 39C4 
NPLOTIT 3905 
NPLOTIT 3906 
NPLOTIT 3907 
NPLOTIT 3908 
NPLOTIT 3909 
NPLOTIT 3910 
NPLOTIT 3911 
NPLOTIT 3912 
NPLOTIT 3913 
NPLOTIT 3914 
NPLOTIT 3915 
NPLOTIT 3916 
NPLOTIT 3917 
NPLOTIT 3918 
NPLOTIT 3919 
NPLOTIT 3920 
NPLOTIT 3921 

NUMBER, TO NPLOTIT 3922 

NPLOTIT 3923 
NPLOTIT 3924 
NPLOTIT 3925 
NPLOTIT 3926 
NPLOTIT 3927 
NPLOTIT 3928 
NPLOTIT 3929 
NPLOTIT 3930 
NPLOTIT 3931 
NPLOTIT 3932 
NPLOTIT 3933 
NPLOTIT 3934 
NPLOTIT 3935 
NPLOTIT 3936 
NPLOTIT 3937 
NPLOTIT 3938 
NPLOTIT 3939 
NPLOTIT 3940 
NPLOTIT 3941 
NPLOTIT 3942 
NPLOTIT 3943 
NPLOTIT 3944 
NPLOTIT 3945 
NPLOTIT 3946 
NPLOTIT 3947 
NPLOTIT 3948 
NPLOTIT 3949 
NPLOTIT 3950 
NPLOTIT 3951 
NPLOTIT 3952 
NPLOTIT 3953 
NPLOTIT 3954 
NPLOTIT 3955 
NPLOTIT 3956 
NPLOTIT 3957 
NPLOTIT 3958 
NPLOTIT 3959 
NPLOTIT 3960 
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125 

C 

c 

c 

128 


130 

C 

c 

150 

C 

C 

c- 


c 

c 

c 

c 


JST = NSTAPS*(I-1) 

DO 125 J = 1,NSTAPS 
T(J) = TSH(JST*J) 

SYMBOL = SYHBL(I) 

KS = 0 

LABEL EVEET 10TH POINT WITH THE SLICE NDHBEE, TO 
IDENTIFY THE CURVES. 

KSTART =1*1 

DO 128 K = KSTAHT,NSTAPS,10 

KS = KS + 1 

XLBL(KS) = XS (K) 

YLBL(KS) = Y(K) 

IVARS(I) = 6 
IVARS(2) = NLBLS 
IVARS(3) = 3 
IVARS(4) = 240*1 
IVARS(5) = 1 
IVAES(6) = 8 

CALL GPLOT (XLBL,YLBL,IVARS) 

IVARS (1) = 3 

IVARS(2) = NSTAPS 
IVARS (3) = 0 

CALL GPLOT (XS, Y, IVARS) 

CALL DISPLA(I) 


CONTINUE 

RETURN 

END 


NPLOTIT 3961 
NPLOTIT 3962 
NPLOTIT 3963 
NPLOTIT 3964 
NPLOTIT 3965 
NPLOTIT 3966 
NPLOTIT 3967 
NPLOTIT 3968 
NPLOTIT 3969 
NPLOTIT 3970 
NPLOTIT 3971 
NPLOTIT 3972 
NPLOTIT 3973 
NPLOTIT 3974 
NPLOTIT 3975 
NPLOTIT 3976 
NPLOTIT 3977 
NPLOTIT 3978 
NPLOTIT 3979 
NPLOTIT 3980 
NPLOTIT 3981 
NPLOTIT 3982 
NPLOTIT 3983 
NPLOTIT 3984 
NPLOTIT 3985 
NPLOTIT 3986 
NPLOTIT 3987 
NPLOTIT 3988 
NPLOTIT 3989 
NPLOTIT 3990 


•SOURCE. NPREPAT 

SUBROUTINE PREP (ICHNL, NTTG) 


SOURCE. NPREPAT 


COHNON /BOUND/ 


BCXS (400) , 
BCTGS (1000 ) , 
BCPGS (1000) , 
QHUBIN (400) , 
QTIPIN (400) , 
BCTINE (50) , 
HSVST (50) , 


BCXP (400) , 
BCTGP (1000) , 
BCPGP(IOOO) , 
OHUB (80) , 
QTIP (80) , 
TTIO(50) , 
AKCTBL (20) , 


BCHGS (1000), 
BCQGS(IOOO) , 
THUBIN (400) , 
TTIPIN (400) , 
EHOVG (400) , 
PTIO(50) , 
AKNTBL (20) , 


BCHGP (1000) , 
BCQGP(IOOO) , 
THUB (80) , 
TTIP (80) , 

PEX (400) , 
HPLEN, 

NBCS, NBCP 


CO«HON /FLMCOL/ HHOVGA (80) , 
Z Xf1UC(80), 


PG (80) , 
LMES (80) 


XFC(80) , 
REFC(80) , 


FLHEFF (80) 
NFCSUP (80) 


COWflON /FEIC/ ALPHA, BETA, DELTA, EPS 


COnnON /PEPS/ CPO, GAHO, DP(80), SP(80), RE(80), 

Z CPC(80), GAHC(80) , DUHR1(80), DUHR2(80) 

COMMON /SPECL/ CHANL(8000), TITLE (30), INDCHN (2000) , 

Z IPLOT, MD1, MD2, MD3, lADJIN, IHEITE 


COMMON /TCC/ ADUMP, ETA, 

Z GAM, Pin, 

Z HDDMP, HIM, 

Z A (400), AJET(80), 

Z DH(80), DHF(80), 

Z DLX(400), FF(80), 


CD, CP, 

E, SPAN, TOG, 

AKC(15,80), AKH(15,80), 
AM2(80), CNUM(80), 

DHJ (80) , 

HC(80), HG(80) , 


NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 


3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 
0012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 
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2 P (2,15,80) ,PEXIT (15) , POKP(80), QG(80), 

Z QSNK(80), RR(8C), S(15), T(2,15 ,400), 

Z TG(80), TAU(400), MFC (80), 

Z HJ(15,80), HCR0S(2, 15,80) , XN (80) , 

Z ICOE, IFILH, IHUB, ITIP, 

Z ISBLOK, ISLICE, NBLKSZ, NSLICS , 

Z NFHD, MSTA, IHC(80) 

C 

COBilON /TENSNT/ RHOC, PHO«, SPHTC, SPHIM, 

Z DLTYME, TYME, TEPS, TYHMAX 

C 
C 

c 

C ICHNL IS THE CHANNEL NUMBER; = 1 FOR THE HUB REGION, 

C = NSLICE AT THE TIP 

C 

C 

C-- LOCATE INPUT DATA FOR THIS CHANNEL AND STORE IT IN WORKING. ARRAYS. 
C 

C II IS THE STARTING POINT IN THE INDCHN ARRAY FOP THIS CHANNEL 
C 

II = INDCHN (ICHNL) 

IF ( ICHNL. NE. INDCHN (II ) ) GO TO 290 

-- IF ABOVE TEST IS TRUE, THEN THE DATA IS NOT STORED WHERE EXPECTED 

10 CONTINUE 

IFILM = INDCHN (11+1) 

ICOE = INDCHN (11+2) 

NFWD = INDCHN (11+3) 

NSTA = INDCHN (11+4) 

ISBLOK = INDCHN(I1+5) 

NBLKSZ = INDCHN(I1+6) 

IPLOT = INDCHN (11+7) 

MD1 = INDCHN(I1+8) 

MD2 = INDCHN(I1+9) 

IHUB = INDCHN (II +12) 

ITIP = INDCHN (11+13) 

INI =11+14 
CD = CHANL(ISBLOK) 

ALPHA = CHANL (ISBLOK + 1 ) 

BETA = CHANL(ISBLOK+2) 

DELTA = CHANL (ISBLOK+3) 

EPS = CHANL (ISBLOK+4) 

ADUMP = CHANL (ISBLOK + 6) 

SPAN = CHANL (ISBIOK+7) 

S (ICHNL) = SPAN 

BTA = CHANL (ISBIOK + S) 

DLTYME = CHANL (ISBLOK+9) 

TEPS = CHANL (ISBLOK+10) 

NODSF = 5*NFHD 
NODST = 5*NSTA 
II = ISBLOK + 14 
13 = ISBLOK + 1U + 2+NODST 
C* 

12 CONTINUE 

DO 205 I = 1, NODST 
IM = II + I 
TAU(I) = CHANL(IM) 

A (I) = T AU (I) *SPAN 


NPREPAT 4021 
NPEEPAT 4022 
NPREPAT 4023 
NPREPAT 4024 
NPREPAT 4025 
NPREPAT 4026 
NPREPAT 4027 
NPREPAT 4028 
NPREPAT 4029 
NPREPAT 4030 
NPREPAT 4031 
NPREPAT 4032 
NPREPAT 4033 
NPREPAT 4034 
NPREPAT 4035 
NPREPAT 4036 
NPEEPAT 4037 
NPREPAT 4038 
NPREPAT 4039 
NPEEPAT 4C40 
NPREPAT 4041 
NPREPAT 4042 
NPREPAT 4043 
NPREPAT 4044 
NPREPAT 4045 
NPEEPAT 4046 
NPREPAT 4047 
NPEEPAT 4048 
NPREPAT 4049 
NPEEPAT 4050 
NPREPAT 4051 
NPREPAT 4052 
NPREPAT 4053 
NPEEPAT 4054 
NPREPAT 4055 
NPEEPAT 4056 
NPREPAT 4057 
NPEEPAT 4058 
NPEEPAT 4059 
NPEEPAT 4060 
NPREPAT 4'’61 
NPREPAT 4062 
NPREPAT 4063 
NPREPAT 4064 
NPEEPAT 4065 
NPEEPAT 4066 
NPREPAT 4067 
NPREPAT 4068 
NPEEPAT 4069 
NPREPAT 4070 
NPEEPAT 4071 
NPREPAT 4072 
NPREPAT 4073 
NPREPAT 4074 
NPREPAT 4075 
NPREPAT 4076 
NPREPAT 4077 
NPEEPAT 4078 
NPREPAT 4079 
NPREPAT 4080 
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IM - IM + NODST 
205 DLX (I) = CHANL (IM) 

DO 215 I = 1,NSTA 
IFLU = 5*1 

DH(I) = 4.0*A (IFLU)/ (2.* (SP AN + TA U (IFLU) )) 

IM = 13 + I 

DHJ (I) = CHANL (IM) 

IM = IM + NSTA 
DHF (I) = CHANL (IM) 

IM = IM + NSTA 
XN(I) = CHANL (IM) 

14 CONTINUE 

IF (DHJ (I) .GT.O.O.AND. XN(I) •GT.0.0) GO TO 202 
AJET(I) = 0.0 
GO TO 212 
2C2 CONTINUE 

XOD = XN (I)/DHJ (I) 

IF(XOD. LT.3.1 .OR.XOD.GT. 12.5) WRITE (6^527) I,XOD 
527 FOFMAT(1HO,» WARNING, RATIO OF JET HOLE SPACING TO JET DIAMETER 
1«FOR JET *,I2,* IS*,F10.4,* WHICH IS OUT OFV 
2» THE RANGE OF VALIDITY OF THE CORRELATION.*) 

CNDM (I) =SPAN/XN (I) 

CNUM IS THE NUMBER OF IMPINGEMENT JETS AT CHANNEL NODE I 
TOTAL JET AREA IS (AREA OF ONE JET) ’♦^ ( N UMBER OF JETS) 

A JET (I) =3. 141 5 9* DHJ ( I) *=♦'2/4 . ♦CNU M (I) 

CONTINUE 
IM = IM NSTA 
ER(I) = CHANL(IM) 

IM = IM + NSTA 
DP(I) = CHANL (IM) 

IM = IM + NSTA 

CHANL (IM) 

+ NSTA 
+ NSTA 

INN = INI + I 
IHC (I) = INDCHN (INN) 

CONTINUE 

* ♦ ♦ 


C 
C 

c 

54 

212 


SP(I) = 
IM = IM 
IM = IM 


215 

C* ** 

C 

C-- 

C 

C-- 

c 

C-- 
C-- 
C-- 
C — 

c 

C-- 

C-- 

310 


315 

c 

c — 

C-- 

C-- 


NOW, GIVEN SLICE, ICHNL, EVALUATE B.C. AT METAL NODE POINTS. IN THE 
FOLLOWING: 

XS & XP ARE DISTANCE FROM LEADING EDGE, ALONG OUTSIDE SURFACE 
(INCHES), FOR SUCTION S PRESSURE SIDES. 

THE CONVENTIONS USED IN THE FOLLOWING ARE: INDEX BEGINING WITH - I- 

IS A SLICE INDEX, INDEX BEGINING WITH -N- IS A TIME INDEX, INDEX 
BEGINING WITH -L- IS A N X INDEX, AND AN INDEX BEGINING WITH -J- IS 
A PROPERTY INDEX I.E. HG,QG,TG,PG. 

FIRST, CHECK THAT THIS IS A TRANSIENT CASE, AND DETERMINE THE MAX. 
BCTIME INDEX, NMX. 

NMX = 1 

IF (BCTIME(NMX+1) .LE.0.0) GO TO 315 
NMX = NMX + 1 
GO TO 310 
CONTINUE 

NOW, IF THIS IS A TRANSIENT, FIND THE LOCATION IN THE BCTIME ARRAY 
OF THE CURRENT TIME, AND CALCULATE THE VALUE OF THE INTERPOLATING 
PARAMETER, TMFRAC. 


NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 


4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 
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C-- 

c— 


320 

325 

C 

c — 
c— 
c — 
c 

C-- 

c 

330 


C 

C — 
C — 
C 


335 


C 

C— 


C 


340 

C 

C — 
C 

342 

C 


345 


TflFEAC = 0.0 NPEEPAT 4141 

NLST = 1 NPREPAT 4142 

IF (NMX.EQ. 1.OR.TYHE.LE.0.0) GO TO 330 NPREPAT 4143 

THE ABOVE TRANSFER OCCURS IF THIS IS A STEADY STATE PROBLEM NPREPAT 4144 

THE FOLLOWING TRANSFER OCCURS IF BE ARE BEYOND THE LAST BCTIME ENTRYNPREPAT 4145 


NPREPAT 4146 
NPREPAT 4147 
NPREPAT 4148 
NPREPAT 4149 
NPREPAT 4150 
GO TO 325 NPREPAT 4151 

NPREPAT 4152 
NPREPAT 4153 
NPREPAT 4154 
NPREPAT 4155 
NPREPAT 4156 
NPREPAT 4157 
NPREPAT 4158 
NPREPAT 4159 
NPREPAT 4160 
NPREPAT 4161 
NPREPAT 4162 
NPREPAT 4163 
NPREPAT 4164 
NPREPAT 4165 

THE STARTING POINTS IN THE PROPERTY ARRAYS, FOE THE LATEST TIME STEPNPREPAT 4166 

NPREPAT 4167 
NPREPAT 4168 

+ LSS NPREPAT 4169 

+ LSP NPREPAT 4170 

NPREPAT 4171 
NPREPAT 4172 
NPREPAT 4173 

TMFEA0*(BCHGS(JS2S+1) -BCHGS (JS1S + 1 ) ) NPREPAT 4174 

THFRAC* (BCTGS (JS2S»1) -BCTGS (JS 1S+1) ) +460. NPREPAT 4175 


NLST = NBX 

IF (TYHE.GE.BCTIHE (NBX) ) GO TO 330 
NHXal = NHX - 1 
DO 320 N = 1,NHXH1 
NLST = N 

IF (TYME.GE.BCTIBE (N) . AND. T YHE. LT. BCTIME (N+ 1) ) 

CONTINUE 

TMFRAC = (TYnE-BCTIME(NLST))/(BCTIME(NLST + 1)-BCTIfIE(NLST)) 

NEXT, SEARCH THE BCXS 6 BCXP ARRAYS TO FIND THE X INTERPOLATING 
FACTORS, XSF & XPF, FOE POSITIONS XS S XP, SLICE ICHNL. 

THE BRACKETING INDICES ABE LBLOBS 6 LABOVS AND LBLOHP & LABOVP. 

THE STARTING POINTS IN THE BCXS E BCXP ARRAYS FOE THIS SLICE ARE; 

LSS = (ICHNL-1) *NBCS 
LSP = (ICHNL-1) *NBCP 
XS = 0.0 
XP = 0.0 


ARE GIVEN BY; 

JS1S = NSLICE* (NLST-1) *NBCS 
JS1P = NSLICE* (NLST-1)*NBCP 
IF (NHX. EQ. NLST) GO TO 335 
JS2S = JS1S + NSLICE*NBCS 
JS2P = JS1P + NSLICE*NBCP 


HG(1) 

TG(1) 

QG(1) 

PG(1) 


BCHGS (JS1S+1) 
BCTGS (JS1S+1) 
BCQGS (JS1S+1) 
BCPGS (JS1S + 1) 


TflFEAC* (BCQGS (JS2S+1) -BCQGS (JSlS+1 ) ) 
TMFRAC* (BCPGS (JS2S + 1) -BCPGS (JS IS + 1 ) ) 


DO 350 K = 2,NSTA,2 

THE OUTSIDE SURFACE NODE NUMBERS FOE SEP SIDES ARE; 
NNS = 5*K - 4 
NNP = 5*K + 1 
XS = XS + DLX (NNS) 

XP = XP + DLX (NNP) 


DO 340 L = 1.NBCS 
LBLOBS = LSS + L 
LABOVS = LSS ♦ L 
IF (BCXS (LABOVS) 
CONTINUE 


-1 


GT.XS) GO TO 342 


INSERT ERROR MESSAGE HERE-- EXTRAPOLATING BEYOND THE BCXS TABLE 

XSF = (XS-BCXS (LBLOBS) )/ (BCXS (LABOVS) -BCXS (LBLOBS) ) 

DO 345 L = 1,NBCP 
LBLOBP = LSP ♦ L - 1 
LABOVP = LSP ♦ L 

IF (BCXP (LABOVP) .GT. XP) GO TO 347 
CONTINUE 


NPREPAT 4176 
NPREPAT 4177 
NPREPAT 4178 
NPREPAT 4179 
NPREPAT 4180 
NPREPAT 4181 
NPREPAT 4182 
NPREPAT 4183 
NPREPAT 4184 
NPREPAT 4185 
NPREPAT 4186 
NPREPAT 4187 
NPREPAT 4188 
NPREPAT 4189 
NPREPAT 4190 
NPREPAT 4191 
NPREPAT 4192 
NPREPAT 4193 
NPREPAT 4194 
NPREPAT 4195 
NPREPAT 4196 
NPREPAT 4197 
NPREPAT 4198 
NPREPAT 4199 
NPREPAT 4200 


122 



nonnuioon 


-- INSERT ERROR HESSRGE HERB — EXTRAPOLATING BETOND THE BCXP TABLE 
7 XPF = (XP-BCXP(LBLOBP))/(BCXP<LABO?P)-BCXP(LBLOHP)) 

- NOB THE FRACTIONS ARE KNOWN, CALCULATE THE INTERPOLATED PROPERTIES. 

- FIRST, FOR THE STEADY STATE OR FOR TIMES BETOND THE LAST BCTIMEs 

JB1S = NSLICE* (NLST-1)*NBCS ♦ LBLOHS 
JB1P = NSLICE* (NLST-1)*NBCP ♦ LBLOHP 

HG(K) = BCHGS(JBIS) ♦ XSF* (BCHGS (JBlS+1) -BCHGS (JBIS) ) 

HG(K+1) = BCHGP(JBIP) ♦ XPF^ (BCHGP ( JB1 P<- 1) -BCHGP ( JB IP) ) 

QG(K) = BCQGS(JBIS) ♦ XSF* (BCQGS (JB 1S+ 1) -BCQGS (JBl S) ) 

QG(K*1) = BCQGP(JBIP) ♦ XPF* (BCQGP ( JB1 1) -BCQGP (JB1P) ) 

TG(K) = BCTGS(JBIS) + XSF* (BCTGS (JB 1 S+ 1 ) -BCTGS ( JB 1S) ) ♦ 460. 

TG(K+1) = BCTGP(JBIP) ♦ XPF* (BCTGP ( JBlP+1) -BCTGP (JBIP) ) ♦ 460. 

PG(K) = BCPGS(JBIS) ♦ XSF* (BCPGS (JBlS + 1) -BCPGS (JB1S)) 

PG(K+1) = BCPGP(JBIP) ♦ XPF*(BCPGP(JB1P+1)-BCPGP(JB1P) ) 

C 

IF (NHX.EQ. l.OE.TYME.GE.BCTIME(NHX) .OR.TYME.LE.0.0) GO TO 350 
JB2S = NSLICE*NLST*NBCS ♦ LBLOHS 
JB2P = NSLICE*NLST*NBCP + LBLOHP 

AHG = BCHGS(JB2S) ♦ XSF* (BCHGS { JB2S + 1) -BCHG S ( JB2 S) ) 

HG(K) = HG(K) ♦ TMFRAC* (AHG-HG(K) ) 

AHG = BCHGP(JB2P) ♦ XPF* (BCHGP (JB 2P + 1 ) -BCHGP ( JB 2P) ) 

HG(K+1) = HG(K+1) + TMFRAC* (AHG-HG (K+1) ) 

AQG = 3CQGS(JB2S) + XSF* (BCQGS ( JB2S + 1 ) - BCQGS ( JB2S ) ) 

QG(K) = QG(K) ♦ TMFHAC*(AQG-QG(K) ) 

AQG = BCQGP(JB2P) + XPF* (BCQGP ( JB2 1 ) - BCQGP (J B2P) ) 

QG(K+1) = QG{K + 1) + TMFRAC* (AQG-QG (K+1) ) 

ATG = BCTGS(JB2S) + XSF * (BCTGS ( J B2S+ 1 ) - BCTGS ( JB2S ) ) + 460. 

TG(K) = TG(K) + TMFRAC* (ATG-TG (K) ) 

ATG = BCTGP(JB2P) + XP F* (BCTGP ( JB2P+ 1 ) -BCTGP ( JB2 P) ) ♦ 460. 

TG(K+1) = TG{K+1) + TMFRAC* (ATG-TG (K+1) ) 

APG = ECPGS(JB2S) + XSF* (BCPGS ( JB 2S+ 1 ) -3CPGS ( JB2S) ) 

PG(K) = PG(K) + TMFRAC* (APG-PG(K) ) 

APG = ECPGP(JB2P) + XPF* <BCPGP(JB2P+1) -BCPGP(JB2P)) 

PG(K+1) = PG(K*1) > TMFRAC* (APG-PG (K+1) ) 

350 CONTINUE 
RETURN 

2^0 WRITE (6,295) ICHNL 

2°*=^ FOPMAT(//» CHANNEL NO. DATA STORAGE IS MESSED OP», 

Z • *%><;: XA*%SdS?***%****) 

149 CONTINUE 
RETURN 
END 


NPREPAT 

NPRBPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPRBPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPRBPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NP-REPAT 

NPRBPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 

NPREPAT 


C SOURCE. NTARAYT NTARAYT 

SUBROUTINE ‘ TARR A Y ( JS , JSE NS , DELT AN) NTARAYT 

C NTARAYT 

C- SOURCE. NTARAYT NTARAYT 

C NTARAYT 

C NTARAYT 

C+++++ A SUBROUTINE TO SET UP THE COEFFICIENT ARRAY TO SOLVE FOR NTARAYT 

C BLADE TEMPERATURES, TRANSIENT CALCULATIONS. NTARAYT 

C FIRST PUT TOGETHER FROM STEADY STATE PROGRAM, NOVEMBER 24,1975 NTARAYT 

C NTARAYT 

C NTARAYT 

*ifli***m^^^it^*^^^***4fi*^*i¥*^At**m:¥*^^********^*it‘* ************ 

C NTARAYT 


4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 


4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 
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o n 


c 




NTARAYT 

4261 

c 




NTARAYT 

4262 

c 

NODE NAMES 

; FOE STATION IS ARE: 

NTARAYT 

4263 

c 

LCOOL 

= 

COOLANT NODE AT IS, 

NTARAYT 

4264 

c 

LIN 

= 

INSIDE WALL NODE. 

NTARAYT 

4265 

c 

L 

= 

HID HALL NODE. 

NTARAYT 

4266 

c 

LOUT 

= 

OUTSIDE HALL NODE. 

NTARAYT 

4267 

c 

LCDP 

= 

ADJACENT UPSTREAM COOLANT NODE. 

NTARAYT 

4268 

c 

LCOPS 


ADJACENT INSIDE HALL NODE 

NTARAYT 

4269 

c 

LOP 

= 

ADJACENT UPSTREAM MID-WALL NODE. 

NTARAYT 

4270 

c 

LDN 

= 

ADJACENT DOWNSTREAM MID-HALL NODE. 

NTARAYT 

4271 

c 

LJ 

= 

JUNCTION OF COATING AND HALL METAL 

NTARAYT 

4272 

c 




NTARAYT 

4273 

c 




NTARAYT 

4274 

c 



IS 

NTARAYT 

4275 

c 



1 

NTARAYT 

4276 

c 



LOUT-* 

NTARAYT 

4277 

c 



LJ # 

NTARAYT 

4278 

c 



/////////////////////////////// 

NTARAYT 

4279 

c 



HALL ///LUP-*///////L-*/////LDN-*/// 

NTARAYT 

4280 

c 



/////////////////////////////// 

NTARAYT 

4281 

c 



-LCUPS-* LIN-* 

NTARA YT 

4282 

c 



FLOW 

NTARAYT 

4283 

c 



> LCUP-* LCOOL-* 

NTARA YT 

4284 

c 




NTARAYT 

4285 

c 



-LCOPP-* — LCOOL P-* 

NTARA YT 

4286 

c 




NTARAYT 

4287 

c 



PRESSURE SIDE HALL OR PLENUM 

NTARA YT 

4288 

c 




NTARAYT 

4289 


4 : +j*Mit ♦****♦ * NTARAYT 4290 

* j#cj|c*;*tj|t:tt*****3|t*+*#3*t3it**jt:**4tj*(>j: ♦♦:#£* Jt:%3^ J*:3*t* * 54 c * «p RA YT 4 291 

NTASAYT 4292 


C 


C 

C 


C 


REALMS 

COMMON 


TCOF 

/BOUND/ 


BCXS (400) , 
BCTGS (1000) 
BCPGS (1000) 
QHUBIN (400) 
QTIPIN (400) 


BCXP (400) , 
BCTGP (1 000) 
BCPGP (1000) 
QHUB (80) , 
QTIP (80) , 


BCHGS (1 000) . 
BCQGS (1000) , 
THOBIN (400) . 
TTIPIN (400) 
RHOVG(400) , 


BCHGP (1000) 
BCQGP (1000) 
THUS (80) , 
TTIP (80) , 
PEX (400) , 


NTARA YT 
, NTA EAYT 
, NTARA YT 
NTAEAYT 
NTARAYT 
NTARAYT 


4293 

4294 

4295 

4296 

4297 

4298 


Z 

BCTIME(50), TTIO(5 

0) , PTIO (50) , HPLEN, 

NTARAYT 

4299 

Z 

WSVST (50) 

, AKCTBL(2C), AKHTBL(20), NBCS, NBCP 

NTARA YT 

4300 






NTARAYT 

4301 

COMMON 

/FLMCOL/ RHOVGA(80), PG(80) 

, XFC(80), 

FLMEFF (80) , 

NTARAYT 

4302 

Z 

XMUC (80) 

, EHES(80), REFC(80) 

, NFCSUP(80) 

NTARAYT 

4303 






NTARAYT 

4304 

COMMON 

/MATRX/ TCOF (400, 

,30) 



NTARAYT 

4305 






NTAEAYT 

4306 

COMMON 

/PRPS/ CPO, 

GAMO, 

DP (80) , 

SP(80), RE(80), 

NTARA YT 

4307 

Z 

CPC (80) , 

GAHC (80) , 

DUMP 1 (80) , 

DUHR2(80) 

NTARAYT 

4308 






NTARA YT 

4309 

COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 

NTARAYT 

4310 

Z 

GAM, 

PIH, 

E, 

SPAN, TOG, 

NTARAYT 

4311 

Z 

HDOMP, 

HIM, 

ARC (15,80) 

, AKH (15,80) , 

NTARAYT 

4312 

Z 

A (400) , 

AJET (80) , 

AH2 (80) , 

CNUM(80) , 

NTARAYT 

4313 

Z 

DH (80) , 

DBF (8 0) , 

DHJ (80) , 


NTARAYT 

4314 

Z 

DLX (400) , 

FF (80) , 

HC (80) , 

HG(60) , 

NTARA YT 

4315 

Z 

P(2, 15,80) , 

PEXIT(15) , 

PUMP (80) , 

QG (80) , 

NTAEAYT 

4316 

Z 

QSNK (80) , 

PR (80) , 

S (15) , 

T (2, 15, 400) , 

NTARAYT 

4317 

z 

TG(80) , 

TAD (400) , 

HFC (80) , 


NTARAYT 

4318 

z 

HJ(15,80) , 

HCROS (2,15 

,80) , 

XN (80) , 

NTARAYT 

4319 

z 

ICOE, 

IFILM, 

IHUB, 

ITIP, 

NTARAYT 

4320 
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ISBLOK, 

NFHD, 


ISLICE, 

KSTA, 

RHOM, 
TYHE, 


300 


308 


309 


310 

C 

c** 

c 


c 

c 

c 


COMMON /TBBSNT/ RHOC, 

2 DLTTME, 

DIMENSION EFABEA(80), DELTAN(15) 

RTRNVM = 0. 

RCHRDM = 0. 

TEEPS = 1.0 

IF (TYME.GE.O.) TREPS = TEPS 
HX = 1.0 
RCVRY = .89 
CONTINOE 
SPAN = S (ISLICE) 

NODST = 5*NSTA 
NODSF = 5*NFHD 
DO 308 J = 1,30 
DO 308 I = 1,400 
TCOF(I,J) = 0.0 
DO 309 I = 1,9 
ICO = NODST + I 
DLX(ICO) =0.0 
ICOMS = JS + 2 - 4*JSENS 
ICOMP = JS - 2 ♦ 4*JSENS 


IF (ICONS. LT.O) ICOMS=2 
IF (ICOMP. LT.1) ICOMP=1 
CONTINUE 


DO 440 IS = 1,NSTA 
ISOP = IS - 2 
YIMP = 0.0 
YFINS = 0.0 
YCONV = 0.0 
YIMPU = 0.0 
YFINSU = 0.0 
YCONVO =0.0 
YIMPUU = 0.0 
YFNSOO = 0.0 
YCNVUU =0.0 

IF (IHC (IS) .EQ.1) YIMP=1.0 
IF (IHC (IS) .EQ. 2) YCONV= (1.0+Ri 
IF (IHC (IS) .EQ. 3) YFINS=1.0 
FACTOR = 1.0 

IF (IS. EQ. ICOMS. OR. IS. EQ. ICOMP) 
ISENS = 0 

ISEN = IS - 2*(IS/2) 


NBLKSZ, 
IHC (80) 


TBPS, 


FACTOR = .5 


IF (IS.GT. NFBD+1) — IN TRAILING EDGE REGION, GO TO 380 

IF(IS.GT.NFND+1) GO TO 380 

J9 = 16 
LCOOL = 5* IS 
LIN =LCOOL-1 
L = LCOOL- 2 


NSLICB, 

NTABAYT 

4321 


NTARAYT 

4322 


NTAEAYT 

4323 

, SPHTM^ 

NTARAYT 

4324 

TYSHAX 

NTARAYT 

4325 


NTARAYT 

4326 


NTARAYT 

4327 


NTABAYT 

4328 


NTARAYT 

4329 


NTARAYT 

4330 


NTARAYT 

4331 


NTARAYT 

4332 


NTARAYT 

4333 


NTAEAYT 

4334 


NTARAYT 

4335 


NTARAYT 

4336 


NTAEAYT 

4337 


NTARAYT 

4338 


NTAEAYT 

4339 


NTARAYT 

4340 


NTARAYT 

4341 


NTARAYT 

4342 


NTARAYT 

4343 


NTARAYT 

4344 


NTARAYT 

4345 

DIRECTION 

NTAEAYT 

4346 

DIRECT ION 

NTARAYT 

4347 


NTARAYT 

4348 


NTABAYT 

4349 


NTAEAYT 

4350 


NTAEAYT 

4351 

IS THE STATION NOMBEE 

NTARAYT 

4352 


NTARAYT 

4353 


NTARAYT 

4354 


NTARAYT 

4355 


NTAEAYT 

4356 


NTARAYT 

4357 


NTARAYT 

4358 


NTARAYT 

4359 


NTAEAYT 

4360 


NTAEAYT 

4361 


NTARAYT 

4362 


NTARA YT 

4363 


NTAEAYT 

4364 


NTARAYT 

4365 

♦ (GANG (IS) -1.)/2.) 

NTARAYT 

4366 


NTARAYT 

4367 


NTARAYT 

4368 


NTARAYT 

4369 


NTARA YT 

4370 


NTABAYT 

4371 


NTARAYT 

4372 

10 TO 380 

NTARAYT 

4373 


NTABAYT 

4374 


NTARAYT 

4375 


NTABAYT 

4376 


NTARAYT 

4377 


NTABAYT 

4378 


NTARAYT 

4379 


NTABAYT 

4380 
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LJ =LCOOL - 3 

NTAEAYT 4381 


LOOT =LCOOL-4 

NTAEAYT 4382 


IF (IHC(IS) .NE.2) GO TO 320 

NTAEAYT 4383 

c 


NTAEAYT 4384 

c 

FOECED CON7ECTION HC: 

NTAEAYT 4385 


THP = (T(2,ISLICE,LCOOL) ♦ T (2, ISHCE,LIN) ) /2. 

NTAEAYT 4386 


CALL GASTBL (TMP,C,CP ,GAM,PD, B,XMU) 

NTAEAYT 4387 


EE (IS) = 12.»3600.*ABS(ICEOS(2,ISLICE,IS) )*DH(IS)/(A(LCOOL)*XnO) 

NTAEAYT 4388 


HC(IS) = . 023*12. *(C/DH(IS))*(EE(IS)**.8)*{PD**. 333) 

NTAEAYT 4389 

c 


NTAEAYT 4390 

320 

CONTINOE 

NTAEAYT 4391 


IF (IS.GE.JS) GO TO 322 

NTAEAYT 4392 

C 


NTAEAYT 4393 

C SPECIAL CASE FOE STATION NOBBEE 1: 

NTAEAYT 4394 


IF(IS.EQ. 1) ISDP = 2 

NTAEAYT 4395 

C 


NTAEAYT 4396 

c IF 

STATION IS IS FOEBAED OF FLOW SPLIT, AND ON SAHE SIDE, GO TO 370 

NTAEAYT 4397 


IF (ISEN.EQ.JSENS) GO TO 370 

NTAEAYT 4398 

C 


NTAEAYT 4399 

322 

CONTINOE 

NTAEAYT 4400 


IF (ISOP.LT.1) ISOP = 1 

NTAEAYT 4401 


IF (IHC(ISOP) .EQ. 1) TIHPO = 1.0 

NTAEAYT 4402 


IF (IHC(ISOP) .EQ.2) rCONVO=1.0>ECVEr*AN2(ISOP)*(GAMC(ISOP)-1.)/2. 

NTAEAYT 4403 


IF (IHC(ISOP) .EQ.3) YFINSO =1.0 

NTAEAYT 4404 


LCOP = LCOOL - 10 

NTAEAYT 4405 


LCOPS = LCOOL - 11 

NTAEAYT 4406 


LOP = LCOOL - 12 

NTAEAYT 4407 


LDN = LCOOL ♦ 8 

NTAEAYT 4408 


IF (IS. NE.2) GO TO 324 

NTAEAYT 4409 

C 


NTAEAYT 4410 

C IF 

THIS IS STATION NOHBEE 2: 

NTAEAYT 4411 


LCOP = 5 

NTAEAYT 4412 


LCOPS = 4 

NTAEAYT 4413 


LOP = 3 

NTAEAYT 4414 

324 

CONTINOE 

NTAEAYT 4415 


IF (IS.GT.1) GO TO 326 

NTAEAYT 4416 

C 


NTAEAYT 4417 

C IF 

THIS IS STATION NOHBEE 1: 

NTAEAYT 4418 


LCOP = 10 

NTAEAYT 4419 


LCOPS = 9 

NTAEAYT 4420 


LOP = 8 

NTAEAYT 4421 

326 

CONTINUE 

NTAEAYT 4422 

C 


NTAEAYT 4423 

C IS 

= 1, STATION NO. 1, LEADING EDGE NODES 

NTAEAYT 4424 

c 


NTAEAYT 4425 


IF (IS.NE.JS) GO TO 330 

NTAEAYT 4426 

c 


NTAEAYT 4427 


€♦♦♦♦♦♦♦♦♦ NTARATT 4429 
C*4c«4t4i4i«*4t this block computes TCOF elements fob the station at which NTARATT 4430 
C THE FLOW SPLITS NTARATT 4431 


IS = JS 

NTARKYT 

4432 


NTARAYT 

4433 




C NTARATT 4435 


328 CONTINOB 



NTARAYT 

4436 

DXI = OLX(LOP) 



NTARAYT 

4437 

IF (DZ1.EQ.0.0) 

0X1 

= DLX(L) 

NTARAYT 

4438 

DX2 = OLX (LON) 



NTARAYT 

4439 

IF (DX2.EQ.0.0) 

DX2 

= DLI(L) 

NTARAYT 

4440 
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n n n 


C 

C 

C 

C 

C 

C 


DX3 - DLKLOP-2) 

IF (DX3.EQ.0.0) DX3 
DX4 = DLX(LDH-2) 

IF (DX4.EQ.0.0) DX4 
DI5 = DLX(LUP+1) 

IF (DX5.EQ.0.0) DX5 
DX6 = DLX(LDH+1) 

IF (DX6.EQ.O.O) DX6 
DX9 = DLKLUP-1) 

IF (DX9.EQ.0.0) DX9 
DX10 = DLX(LDN-I) 

IF (DX10.EQ.0.) DX10 = DLX (LJ) 
CaR? = 1.0 ♦ (DX9+DX10)/(DX3+DX4) 


= DLX (LODI) 
= DLX (LOOT) 
= DLX (LIN) 

= DLX (LIN) 

= DLX(LJ) 


COR? IS A MEASURE 
COR? = 2.0 IS A 
CORV < 2.0 IS A 
COR? > 2.0 IS A 


OF THE COR?AT0RE OF THE BLADE AT STATION IS, 
STRAIGHT SECTION OF MALL, 

CONVEX SECTION, AND 
CONCAVE SECTION 


TRTRMC - 0.0 

IF (DLTYHE. GT. 0.0. AND. TIME. GE.O.) TRTRMC- (3600./1 44 .) *RHOC*SPHTC* 

Z (TAD (LOUT) ♦*2)/(4.*AKC(ISLICB,IS) ♦DLTTME) 

TCOF (LOUT, 13) = -TREPS + TRTRMC*COEV 
TCOF (LOUT, 12) =TRTRMC*CURV + TREPS^( 1 .0+ (1.0-BTA) ♦HG (IS) ♦TAD (LOUT) /NTARAYT 
2 (12.*AKC(ISLICE,IS) ) ) NTARAYT 


NTARAYT 
NTA RA IT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 


TCOF (LOUT, J9) = 

Z 

TCOF (LOUT, 24) = 


-(1.-BTA)^TREPS*FLMEFF(IS) *HG (IS) ♦TAU(LOUT)/ 

(12. *AKC(ISLICE,IS) ) 
(BTA^QG (IS) ♦ (1 .0-BTA) ♦HG (IS) *TG (IS) ♦ 


J1 = 
J2 = 


12 - 
12 - 


THETA 1 
THETA2 
THETA3 
THETA6 
THETA4 
THETAS 
HUB1 = 
HOBS = 
TIPI = 
TIP3 = 


NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTA RA YT 
NTARAYT 
NTARAYT 
NTARA YT 

(DX1 + DX2+DX5+DX6) /(DXI +DX2 + DX9 + DX1 0) NTARAYT 

( (TAU (L) +TAU (LUP) )/ (2. *DX1 ) ) *2.*TA0 (L) / ( DX 1 +DX 2 + DX9 +DX 10) NTARAYT 
( (TAU (L) +TAO (LDN) ) / (2.*DX2) ) *2. ♦TAU (L) / (DX1+DX2 + DX9 + DX10) NTARAYT 
24.*TAU(L)/(AKH(ISLICE,IS) *S (ISLICE) * (DX1 >DX2 +DX9 *0X1 0 ) ) NTARAYT 


Z (1 .0-FLMEFF (IS) )) *T AU (LOUT) / ( 1 2 . *A KC (ISLICE,IS) ) 

Z - T(1, ISLICE, LOUT)* ((1. -TREPS)* ((1.-BTA)^HG(IS)*TAU(LOUT) / 

Z (12.*AKC(ISLICE,IS) ) ♦ 1.) - TRTRMC*CURV) 

Z + T(1,ISLICE,LJ)* (1 .-TREPS+TRTRMC*CURV) 

Z + T (1,ISLICE,LCOOL) * (1 .-TREPS) *FLMEFF (IS) * (1.-BTA) *HG (IS) * 

Z TAU (LOOT)/( 12.*AKC (ISLICE, IS) ) 

TCOF (LJ, 11) = TREPS 

TCOF (LJ,13) = TREPS* (AKH (ISLICE, IS) /AKC (ISLICE, IS) ) * 

Z (2.*TAU (LOUT) /TAO(L) ) * ( DX 1 <-D X2+DX3+DX4) / (DX9 + DX 1 0 + D X3 + DX4) 

TCOF(LJ,12) = - TCOF(LJ,11) - TCOF(LJ,13) 

TCOF (LJ, 24) = (1 .-TREPS) * ( (T (1 , IS LICE, LJ) -T ( 1 , ISLICE, LOUT) ) + 

Z (T (1, ISLICE, LJ) -T (1, ISLICE, L) ) *TCOF (LJ , 13) /TREPS) 


LUP 

LDN 


= 0.0 
= 0.0 
0.0 
0.0 
0.0 
0.0 


IF (ISLICE. EQ. 1) GO TO 3290 
FOR A SLICE THAT IS NOT AT THE HUB OF THE BLADE: 

THETA4 = (TAD (L)/S (ISLICE) ) * (TAU (L) / (S (I SLICE) + S (ISLIC E-1) ) ) * 


NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTA RAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 


4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 
44 87 
4488 
4469 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 
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c 
c 
c 

3290 


Z 2.* (DX1 + DX2)/(DXUDX2+DX9+DX10) 

IF (ISLICE.SQ.HSLICE) GO TO 3292 

THETAS = THETA4*(S(ISLICE) ♦S(ISLICE-1))/(S(ISLIC3)+S(ISLICE+1)) 
TBELOW = T(1 rISLICE-1 ,L) 

TABOVE = T (1rISLICE+1^L) 

GO TO 3294 

FOE THE SLICE AT THE HUB END OF THE BLADE; 


NT A HA YT 
NTARA YT 
NTAHAYT 
NTARA YT 
NTAHAYT 
NTAHAYT 
NTAHAYT 
NTAHAYT 
NTAHAYT 
NTAHAYT 
NTAHAYT 
NTAHAYT 


CONTINUE 

IF (IHUB.EQ.1) HUBI = ( (DX1 +DX2) / (DX 1 + DX2 + DX9 +DX 1 0) )♦ 

Z (2-*(TAU(L)/S(1) )**2) 

FOR IHUB = HUB TEMPERATURE IS SPECI FIED*************************** NTA BAYT 
THETAS =0.0 NTAHAYT 

IF (NSLICE. GT. 1) THETAS = (TA U (L) /S ( 1) ) * (TAO (L) / ( S ( 1) + S (2) ) ) ♦ 

Z (2. ♦(DX1+DX2)/(DX1+DX2+DX9+DX10) ) 

IF (IHUB.EQ.3) HUB3 = ( (DX 1 +DX2 ) / (D X 1 +DX2 + DX9 + DX 10) ) * {TAU (L) ^*2) / 

Z (AKH (1 ,IS) *12.*S (1 ) ) 

IHUB = 3^ THE HEAT FLUX AT THE HUB END IS SPECIFIED (BTU/HR FT**2) 

TBELOW = T(1, 1,L) 

IF (IHUB.EQ.1) TBELOW = THUB(IS) 

TABOVE = T (1, 1 ,L) 

IF (NSLICE. GT. 1) TABOVE = T(1,2,L) 

IF (NSLICE. GT. 1) GO TO 3294 


C 
C 

c 

c 

3292 


FOR THE SLICE AT THE BLADE TIP, (IF THERE ARE MORE THAN 1 
BEING CONS IDEE ED) : + 


SLICES 


CONTINUE 
IF (ITIP.EQ.1) 


C 

C 

3294 


TIP1 = ( (DX1+DX2) /(DX1+DX2 + DX9 + DX10) )♦ 

(2. * (TAD (L) /S (NSLICE) ) **2) 

IF (NSLICE. GT. 1) TBELOW = T ( 1 , ISLIC E- 1 , L) 

IF (ITIP.EQ.3) TIP3 = ( (DX 1 + DX2) / ( D X 1 +DX2 + DX9 +DX 1 0) ) ♦ (TAD (L) **2 ) / 
Z (AKW (NSLICE, IS) *12. (NSLICE) ) 

TABOVE = T(1, ISLICE,L) 

IF (ITIP.EQ.1) TABOVE = TTIP(IS) 


CONTINUE 
THETA9 = 0.0 

IF (DLTYME.GT.0.0. AND.TYME.GE.O. ) THETA9 = 2. *3600. *RHOM*SPHTM* 
Z (DX1 + DX2) * (TAU(L) ^*2) / (I 44 . * A K W (ISLICE , IS) * 

Z (DX1+DX2+DX9+DX10) +DLTYME) 

TCOF (L, 1 1) = 1.0*TREPS 

TCOF(L,13) = THETA1*TREPS 
TCOF (L, J1) = THETA2*TREPS 

TCOF(L^J2) = THETA3*TREPS 

TCOF(L,12) = (-1.0 - THETA1 - THETA2 - THETA3 - THETA4 - THETAS 

Z HUBI - TIP1)*TREPS - THETA9 

TCOF(L,24) = QSNK(IS)*THETA6 - (THET A4 + HUBI ) *TBELOW 
Z -(THETAS+TIPI) *TABOVE - QH UB (I S) *H UB3 + QTIP ( IS) *TIP3 

Z - (1 -THE PS) * (T (1 ,IS LICE, LOP) *THETA2+T (1, ISLICE, LJ) 

Z +T (1,ISLICE,LIN)*THETA1+T ( 1 , ISLICE, L DN) *THETA3) 

Z +T (1, ISLICE, L) ♦ ( ( 1 .0-TREPS) * ( 1 . +TH ETA 1 + THETA2 <-THETA3 

Z +THETA4 +THETA5+HUB1+TIP1) - THETA 9) 


C 

C 


AHTRNI = (DX5 + DX6 )* S (ISLICE) /2 . 

THETAS = 2. *HX*HC(IS) *AHTRN 1*TAU (L) /(12, 


*AKW (ISLICE,IS)*S (ISLICE) 


NTARA YT 
NTAHAYT 
NTAHAYT 
NTARA YT 
♦♦♦NTAHAYT 
NTARAYT 
NTAHAYT 
NTARAYT 
NTAHAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTAHAYT 
NTARAYT 
NTAHAYT 
NTARAYT 
NTARAYT 
NTARAYT 


4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 
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non 


C 


C 

c 

c 

c 

c 

c 

c 

c 

c 


TCOF (LIN,1 1) 
TC0F(LIN,24) 

z 

TCOF (LIN^ 12) 


♦ (DXUDX2 + DX5+DX6) ) 

TREPS 

- THETA8*T0G - ( 1 . 0-TREPS) * (T (1 ^ISLICE^ L) 

•T (1,ISLICE,LIN) ♦(I.O+T BETAS) ) 
(-1 .0 - THETA8)*TREPS 


TCOF (LCOOL, 12) 

= 1.0 

TCOF (LCOOL, 24) 

= TOG 

IF 

(TY»1E.GT.O.) 

RCHRD 

IF 

(TYME.GT.O.) 

RTRNV 

IF 

(RCHRD. GT. aCHRDM) 

IF 

(RTRNV.GT.BTRNVB) 


= (144./3600. ) ♦AKH (ISLICE^ IS) ♦DLTYHE/ 

(FHOM^SPHTH* (( (DX1 + DX2) /2.) ♦♦2) ) 
= (14U./3600.) *AKW (ISIICE^IS) *DLTTf!E/ 
(EHOB+SPHTM* (T AU (L)**2)) 

RCHRDH = RCHRD 
RTENVM = RTBNV 


GO TO 440 


NTARAYT 
NTAEAYT 
NTARAYT 
NTAEAYT 
NTAEAYT 
NTAEAYT 
NTA RA IT 
NTAEAYT 
NTAEAYT 
NTAEAYT 
NTAEAYT 
NTASA YT 
NTAEAYT 
NTA BAYT 
NTARA YT 
NTARAYT 
NTAEAYT 
NTAEAYT 
NTARAYT 
NTAEAYT 
NTARAYT 
NTAEAYT 
NTARAYT 
NTARAYT 
NTARAYT 




C^***^^** NTARAYT 

C**^**»** THIS BLOCK COMPUTES TCOF ELEMENTS FOR GENERAL FLOW STATIONS NTAEAYT 

«^^4c%4c4c« NTAEAYT 

1(1 4t 4( 4c4( 4t 4> * « *4c 4e 4t4c * 4t * ^ 4t 4t 4c 4c * 4c 4c« « « 4c 4^ 4c 4 % « 4t « 4t« 4c * ♦♦ ♦♦ ♦« «4t4t 4c NT A BA YT 


NTARAYT 


330 

CONTINUE 


NTARAYT 


DX1 = 

DLX (L) 


NTAEA YT 


DX2 = 

DLX (LDN) 


NTARAYT 


DX3 = 

DLX (LOUT) 


NTAEAYT 


DX4 = 

DLX (LDN-2) 


NTARAYT 


DX5 = 

DLX (LIN) 


NTAEAYT 


DX6 = 

DLX (LDN+1) 


NTARAYT 


DX7 = 

DLX (LCOOL) 


NTAEAYT 


DX9 = 

DLX (LJ) 


NTARAYT 


DX10 

= DLX(LDN-I) 


NTARAYT 


IF (IS.GT.1) GO TO 332 


NTARAYT 

C 



IF THIS IS STATION NUHBEH 1: 

NTARAYT 


DX1 = 

DLX (LUP) 


NTARAYT 


DX9 = 

DLX (LDP-1) 


NTARAYT 


DX3 = 

DLX (LOP-2) 


NTARAYT 


DX5 = 

DLX (LOP+1) 


NTARAYT 


DX7 = 

DLX (LOP+2) 


NTARAYT 

C 




NTARAYT 

332 

CONTINUE 


NTAEAYT 


LCUPP 

= LCOOL - 5 


NTARAYT 


LCOOLP = LCOOL * 4 


NTARAYT 


J1 = 

12 - L + LUP 


NTARAYT 


J2 = 

12 - L + LDN 


NTARA YT 


J4 = 

12 - LCOOL + LCDPS 


NTAEAYT 


J5 = 

12 - LCOOL ♦ LCOP 


NTARAYT 


J6 = 

12 - LCOOL + LCOPP 


NTAEAYT 


J8 = 

12 - LCOOL ♦ LCOOLP 


NTARA YT 

C 




NTARAYT 

333 

CONTINUE 


NTARAYT 


4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 
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AHTRNI = (DX5 + DX6 ) *S (ISLICE) /2 . 


A1 

A2 

A3 

A4 

IF 

IF 

IF 

IF 


SPAN*DX5/2. 
A1 
0.0 
0.0 


(IHC(IS) 

CALL 


(IHC(IS-2) .EQ.3) 
(IHC (IS) .EQ.3) 
(IHC (IS) .EQ.3) 


.EQ.3.AND.IS.LE.NFWD) 

HCPINS(IS,DELTAN^LCOOL,LCUP^LIN,LCOOLP,PIN5,EFAPEA) 


NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTA RA YT 
NTARAYT 
NTARA YT 

C NTARAYT 

C NTARAYT 


A1 
A2 

AHTBNI = 


EFAREA (IS-2)/2. 
EFAREA (IS) /2. 
EFAREA (IS) 


340 

C 


13 = 12 - LIN + LCOOL 
CONTINUE 


CURV = 1.0 ♦ (DX9*DX10)/(DX3+DX4) 


4621 

4622 
U623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 


c 

FOR 

MID-HETAL NODE 

(L) : 




IN GENERAL; 13 

= 

13NTABAYT 

4640 

c 


TCOF(L,12) , 

12 

REFERS 

TO 

NODE 

L 

J1 

= 

2NTARAYT 

4641 

c 


(L,J1), 

J1 

REFERS 

TO 

NODE 

LOP 

J2 

= 

22 NTARAYT 

4642 

c 


(L,J2) , 

J2 

REFERS 

TO 

NODE 

LDN 

J4 

= 

INTARAYT 

4643 

c 


(L,11) , 

11 

REFERS 

TO 

NODE 

LJ 

J5 

= 

2NTABAYT 

4644 

C 


(L,13) , 

13 

REFERS 

TO 

NODE 

LIN 

J6 

= 

6NTABAYT 

4645 

c 

FOR 

THE COOLANT 

NODE (LCOOL) 

: 


J8 

= 

16NTABAYT 

4646 

c 

TCOF (LCOOL, 12) , 

12 

REFERS 

TO 

NODE 

LCOOL 



NTABAYT 

4647 

c 


(LCOOL, J4) , 

J4 

REFERS 

TO 

NODE 

LCOPS = LUP+1 



NTA BA YT 

4648 

c 


»J5) , 

J5 

REFERS 

TO 

NODE 

LCUP 



NTABAYT 

4649 

c 


,J6) , 

J6 

REFERS 

TO 

NODE 

LCOPP, (TRAILING 

EDGE REGION ONLY) NTARAYT 

4650 

c 


,11), 

11 

REFERS 

TO 

NODE 

LIN 



NTARAYT 

4651 

c 


,J8) , 

J8 

REFERS 

TO 

NODE 

LCOOLP, (TRAILING EDGE REGION ONLY) NTARAYT 

4652 


C NTARAYT 

C NTARAYT 

C FOR OUTSIDE NODE: NTARAYT 

C NTARAYT 

THTRHC =0.0 NTARAYT 

IF (DLTYHE.GT.0.0. AND.TYME.GE.O. ) TRTR»C= NTARAYT 

Z (3600. /144.) *RHOC*SPHTC*(TAO(LOUT) ♦♦2)/(4.*AKC (ISLICE^IS) ♦DLTYME) NTARAYT 


TCOF (LOOT ^13) 
TCOF(LOUT^12) 


-TREPS ♦ TBTRMC*CURV 
(1.0 + (I.O-ETA)^HG (IS)*TAO(LOUT) / 

(12.*AKC(ISLICE,IS) )) *TREPS + TRTPnC^CURV 
TCOF (LOOT^J9) = - (1 . -BT A) ♦TREPS* FLNEFF (IS) ♦HG(IS) ★TAO(LOOT) / 

(12.*AKC (ISLICE^IS) ) 
(BTA»QG(IS) + (1.0-BTA) ♦HG { IS) ^TG (IS) * 
(1.0-FLMEFF (IS)) )*TAO (LOOT) / ( 1 2. ★ ARC (ISLICE^ IS) ) 

T (1,ISLICE,LOOT) ♦ ( (1.-TREPS) ♦ ((1 .-BTA) *HG (IS) *TA 0 (LOOT) / 
(12.*AKC (ISLICE,IS)) ♦ 1 . ) *• TRTRRC+CORV) 

T (1^ ISLICE,LJ) * ( 1 .-TEEPS+TETRMC^COBV) 

T (I^ISLICE^ LCOOL) ♦(1.-TREPS) * FLMEFF (IS ) ★ ( 1 . -BTA) *HG (IS) ♦ 
TAO(LOOT) / (12.*AKC (ISLICE^IS) ) 


TCOF (LOOT, 24) = 


C 

C 

C 

C 


AT JUNCTION OF COATING AND HETAL, NODE LJ: 

TCOF (LJ, 11) = TEEPS 

TCOF (LJ, 13) = TREPS*(AKH(ISLICE,IS)/AKC(ISLICE, IS))» 

Z (2. *1X0 (LOOT)/TAO (!))♦ (DXl^DX2+DX3+DX4) / (DX9>DX10+DX3+DX4) 
TCOF(LJ,12) = - TCOF(LJ,11) - TCOF(LJ,13) 


NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 


4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 
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no n no cjonn non nono 


TC0F(LJr24) = (l.-TBEPS)*((T(1rISLICF,LJ)-T(1,ISLICE,L0UT)) 
Z (T (1 ,ISLICE,LJ) -T (1 tlSLICE^L) ) ♦TCOF{LJt 13) /TRBPS) 


FOE HID-HETAL NODE: 


THETA1 
THETA2 
THETA3 
THETA6 
IF 


NT A B ATT 
NTABA TT 
NTABATT 
NTABA TT 
NTABATT 
NTABATT 

(DX1+DX2 + DX5+DX6)/(DX1+DX2^DX9*DX10) NTABATT 

( (TAU(L) ♦TAO(LOP) )/(2. *0X1) ) *2. ♦TAD (L)/ (DX 1 ♦DX2^DX9 ♦DX10) NTABATT 


0.0 

24 .♦TAO (L) / (AKN (ISLICE^ IS) *S (ISLICE) ♦ (DX1 + DX2 + DX9 +DX10 ) ) 
(IS.LT.NSTA-1) THETA3 = ( (T AN (L) AO (LDN) ) / (2. *0X2) ) *2. ♦ 

Z TAO (L)/(DX1^DX2*DX9^DX10) 

THBTA4 =0.0 
THETAS = 0.0 
HOBI = 0.0 
H0B3 = 0.0 
TIPI = 0.0 
TIP3 = 0.0 
IF (ISLICE. EQ, 


1) GO TO 3410 


FOR A SLICE THAT IS NOT AT THE HOB OF THE BLADE: 

THETA4 = (TAO (L)/S (ISLICE) )♦ (TAO (L) / (S (ISLICE) +S (lSLICE-1) ) ) ♦ 

Z 2.* (DXUDX2)/(DX1 + DX2>DX9+DX10) 

IF (ISLICE. EQ.NSLICE) GO TO 3412 

THETAS = THETA4* (S (ISLICE) +5 (ISLICB-1) )/(S(ISLICE) +S(ISLICE^1) ) 
TBELOH = T(1,ISLICE-1 ,L) 

TABOVE = T (1r ISLICE^I^L) 

GO TO 3414 

FOR THE SLICE AT THE HOB END OF THE BLADE: 


410 CONTINOE 

IF (IHUB.EQ.1) 


HOBI = ( (DX1+DX2)/(DX1^DX2*DX9<‘DX10) )*(2.* (TAO (L)/ 

Z S(1))**2) 

FOR IHUB = 1, HOB TEMPEEATORE IS SP ECI FIED**** ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦NTABATT 

NTABA TT 


NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABA TT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABA TT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 


THETAS = 0.0 
IF (NSLICE.GT, 


1) THETAS = (TAO (L)/S (1) ) ♦ (TAO (L)/ (S (1) (2) ) )♦ 
(2.* (DX1+DX2)/(DX1+DX2+DX9+DX10) ) 


IF (IH0B.EQ.3) HUB3 = ( (DX 1 +DX2) / (DX 1 + DX2+DX9 +DX 10) ) ♦ (T AO (L) **2) / 

Z (AKH(1,IS)*12.^S(1)) 

IHUB = 3, THE HEAT FLUX AT THE HUB END IS SPECIFIED (BTU/HR FT*^2) 


TBELOH = 
IF (IHOB. 


T(1, 1,L) 

EQ.1) TBELOW = 


THOB (IS) 


TABOVE = T(1,1 ,L) 

IF (NSLICE. GT. 1) TABOVE = T(1,2,L) 
IF (NSLICE.GT. 1) GO TO 3414 


C 
C 

c 

C 

34 12 


FOB THE 
BEING 


SLICE AT THE 
CONSIDERED) 


BLADE TIP, (IF THERE ARE KOBE THAN 1 SLICES 


CONTINOE 
IF (ITIP.EQ.1) 


TIPI = 


IF (NSLICE. GT. 1) 


( (DX1+DX2)/(DX1+DX2^DX9>DX10) )^(2.^ (TAO (L)/ 

S (NSLICE)) ♦♦2) 

TBELOW = T(1,ISLICE-1,L) 


NTABATT 
NTABATT 
NTABA TT 
NTABATT 
NTABATT 
NTABATT 
♦♦♦NTABATT 
NTABA TT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 
NTABATT 


4681 

4682 
4663 

4684 

4685 
4666 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 
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c 

3414 


IF (ITIP.EQ.3) TIP3 = ( ( DX 1 +DX2) / (D XI +D X2^DX9+DX1 0) ) ♦ (TAU { L) ♦♦2 ) / 
Z (AKW (NSLICE, IS) *12.*S (NSLICB) ) 

TABOVE = T (1^ISLICE,L) 

IF (ITIP.EQ.1) TABOVE = TTIP(IS) 

CONTINUE 
THETA9 = 0.0 

IF (DLTYHE.GT.O.O.AND.TTnE.GE.O.) THETA9 = 2 .♦3600. »RHOH^SPHTfl* 

Z (DXUDX2)^ (TAU(L)^*2)/ (144. ♦AKW (ISLICE, IS)^ 


C 

C 

C 

C 

C 


ENDEFF IS EFFECT 
THE BLADE 


(DX1*DX2+DX9+DX10)^DLTY«E) 


OF HEAT TRANSFER FROM THE GAS TO THE REAR EDGE OF 


ENDEFF =0.0 
ENDFLX =0.0 

IF (IS.GE.NSTA-1 .AND.BTA.EQ.0,0) ENDEFF = 2 . ♦HG { IS) ♦ (T AU (L) ♦♦ 2) / 

Z (12.* AKW (ISLICE, IS) ♦ (DX1+DX9) ) 

IF (IS.GE.NSTA-1.AND.BTA.GT.0.0) ENDFLX = QG (IS) ♦ (TAD ( L) ♦* 2 ) / 

Z (12. ♦AKW (ISLICE,IS)* (DX1+DX9) ) 

3416 CONTINUE 

TCOF(L,11) = I.O^TREPS 
TCOF(L,13) = THETA1*TREPS 
TCOF(L,J1) = THETA2^TREPS 
TCOF(L,J2) = 0.0 

TCOF(L,12) = (-1.0 - THETA1 - THETA2 - THETA3 - THETA4 - THETAS 
Z -ENDEFF - HUB1 - TIP1)^TREPS - THETA9 

TCOF(L,24) = QSNK (IS) ♦THETA6 - (THETA4 + H OB 1 ) *TBELOW - 
Z (THETA5 + TIP1) ♦TABOVE - QHU B ( IS ) ♦HU B3 + QTIP (IS) ♦TIP3 

Z - (1.-TREPS)^ (T (1,ISLICE,LUP)^THETA2 + T (1, ISLICE, LJ) + 

Z T(1, ISLICE, LIN) ♦THETA 1+T(1, ISLICE, LDN) *THETA3) 

Z (1 , ISLICE, L) ♦ ((1 .O-TREPS) ♦ (1. +T HET A1 +T HETA2 +THET A 3 + 

Z THETA4+THETA5+HUB1+TIP1+ENDEFF) 

Z - THETA9) - TG (IS) ♦ENDEFF - ENDFLX 

IF (IS.LT.NSTA-1) TCOF (L,J2) = THETA3+TEEPS 
C 

PUMP (IS) = (. 1047 198 ♦WS) ♦*2»RR (IS) ♦ (RR (IS) -RR (IS-2) ) 

C 

C FOR INNER SURFACE NODE: 

C 

342 THETAS = 2. ♦HX^HC (IS) ♦AHTRN 1*TAU (L) / ( 12 . ♦AKW (ISLICE ,IS ) ♦ 

Z S (ISLICE)* (DX14-DX2+DX5 + DX6) ) 

C 

TCOF (LIN, 11) = TREPS 

TCOF(LIN,12) = (-1.0 - THETA8)*TREPS 

TCOF (LIN, 13) = THETA8^(YCONV + YFINS)*TREPS 

TCOF(LIN,24) = - YIMP*THETA8*T0G 

Z - (1. -TREPS) * (T( 1, ISLICE, L) -T ( 1 , 1 SLICE , LIN) * (1.+THETA8) 

Z +THETA8^ (YCONV+YFINS) *T ( 1 , IS LICE, LCOOL) ) 


C 

C 

C 


IF 


34 3 
C 


THIS IS A TRAILING EDGE, PRESSURE SIDE, STATION, 
COINCIDES WITH SUCTION SIDE COOLANT NODE. 

IF (ISBNS. EQ.O) GO TO 343 
TCOF(LCOOL,7) = -1.0 
TCOF(LCOOL, 12) = 1.0 

TCOF (LCOOL, 24) =0.0 
IF (ISENS.EQ. 1) GO TO 430 
CONTINUE 


COOLANT NODE 


NTARAYT 

NTARA YT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARA YT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARA YT 

NTARAYT 

NTARAYT 

NTARA YT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARA YT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARA YT 


4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4763 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4764 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 
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nnonnnn oocjo on or. 


C FOH COOLANT NOD£: 

• FOR THE SPECIAL CASE OF IS = NFWD+1, GO TO 350 


FILMW = WFC(IS) 

IF (I3.GT.NFWD) FILBH = 
IF (IS. EQ. Nf WD+ 1) GO TO 


HXCP = WCEOS (2 ,ISLICE, IS) *1 44. *CPC (IS) *3600 . 

IF (IS. EQ. ICOMP.OK. IS. EQ.ICOMS) WXCP = W J (I SLICE, JS) * 1 44 . * 
; CPC(IS) *3600./2. 


DEFINE A COOLANT SIDE TRANSIENT TERM, THTBMG 


NTABAIT 
NTAEA YT 
NTARAYT 
NTABAIT 

FILMH + HFC(IS + 1) NTABAIT 

350 NTABAIT 

NTARAYT 
NTABAIT 
NTARA YT 
NTARAYT 
NTABAIT 
NTABAIT 
NTARAYT 
NTABAIT 
NTABAIT 

TRTRMG = 0.0 NTABAIT 

IF (DLTIME. GT.O. 0. AN D.TIME .GE.O. ) TRTRMG = ( 1 . +CPC (IS- 2) /CPC (IS) ) *NTA BA IT 

(P(1 ,TSLICE, IS-2)/T (1 ,ISLICE,LCaP) NTABAIT 
- P (1 ,ISLICE,IS) /T (1, ISLICE,LCOOL) ) NTABAIT 

* (A (LCOP) +A (LCOOL) ) *DLX (LCOOL) / ( 16 . *DLTIHE*B* NTABAIT 

WCROS (2, ISLICE, IS) * 12. ) NTABAIT 

TCOF (LCOOL, J4) = HX*TR EP S* HC (ISUP) * A 1/HXCP NTABAIT 

TCOF (LCOOL, J5) = 14 4 . *3 600 . *TBEP S*WCEOS (2, ISLICE, ISUP) * NTABAIT 

Z (1 . + AM2 (ISUP) * (GAMC (ISUP) -1. ) /2. ) *CPC (ISUP) /HXCP NTABAIT 

Z - HX*TEEPS*HC (ISUP) * (YCONVU+YFINSU) * (A1+A3)/HXCP - TRTRMG NTABAIT 

TCOF (LCOOL, 11 ) = HX*TREPS*HC(IS) *A2/HXCP NTABAIT 

TCOF (LCOOL, 12) = TREPS* ( (-FILMH* 144 . *3600. *CPC (IS) /HXCP) - 1 . 0 NTABAIT 

Z -((GAMC (IS)-1.)/2.)*AM2 (IS) NTABAIT 

Z - HX*HC (IS) • (A2 + A4)* (YCONV+YFINS)/HXCP) - TRTRMG NTARAYT 

TEEDGE = 0.0 NTABAIT 

IF (IS.GT.NFHD) TREDGE= ( (1 . -T REPS ) * HX/H XCP) * (T ( 1 , ISLIC E, LCUPP ) * NTABAIT 
Z HC(ISUP)*A3 + T (1, ISLICE, LCOOLP) *HC (IS) *A4) NTABAIT 

TCOF (LCOOL, 24) = - (CPO*FACTOR*HJ (ISLICE, ISUP) * 1 44 . *360 0 ./W XCP) *T0G NTA BAIT 

NTARAYT 
NTABAIT 
NTARAYT 
NTABAIT 
NTABAIT 
NTABAIT 
NTARA IT 
NTARA IT 
NTABAIT 
NTARAYT 
NTABAIT 
NTABAIT 
NTARA IT 
NTABAIT 

ONLY ONE CAN BE NON-ZERO AT A TIMENTABAIT 
MEANS THAT IMPINGEMENT HEAT TRANSFER IS BEING CONS IDEBEDNTABA YT 


Z - PUMP(IS)/(CPC(IS)*776.*144.*32.2) 

Z + TOG* ( HX*HC (ISUP) *A 1*IIMPU + H X*HC (I S) *A2* YIMP ) /H XCP 
Z - T (1 , ISLICE, LCUPS) *HX*(1-TREPS) *HC (ISUP) *A1/HXCP 
Z - T (1, ISLICE, LCUP)* (144. *3600. *(1. -TREPS) *HCEOS (2, ISLICE, ISUP) 

Z *(1.+AM2(ISUP)* (GAMC (I SOP) - 1 .) /2.) *CPC (ISUP) / 

Z HXCP - HX* (1 . -TBEPS) *HC(ISDP) * (YCONVU + 

Z YFINSU) * (A1 +A3) /HXCP - TRTRMG) 

Z - T (1 , ISLICE , LIN) *HX* (1. -TREPS) *HC (IS) *A2/HXCP 
Z - T (1, ISLICE, LCOOL)* ( (1. -TREPS)* ( (-FILHH*144. *3600. *CPC(IS) / 

Z HXCP) - 1. 0- ( (GAMC (IS) -1 .) /2. ) *AM2 (IS) 

Z - HX*HC (IS) * (A2 + A4)* ( YCONV+IFINS) /HXCP) - TRTBHG) - TBEDGE 
IF (IS.GT.NFHD) TCOF (LCOOL, J6) = TB EPS*HX*HC (ISUP) *A3/HXCP 

IF (IS.GT.NFHD) TCOF (LCOOL, J8) = TREPS*HX*HC (IS) *A4/HXCP 


*** OF THE TERMS IIMP,YFINS, ICONV, 


YIMP = 
IFINS 


ICONV = 1 


MEANS THAT A PIN FINNED SURFACE IS BEING USED 
MEANS A FORCED CONVECTION CORRELATION IS BEING USED 


IF 

r 

j 

IF 

r 

IF 

IF 


(TYME.GT.O,) HCHRD = 
(TYME.GT.O.) RTRNV = 


(RCHRD.GT.RCHBDM) 
(RTRNV. GT.RTRNVM) 


(14 4./3 6 00. ) ♦AKW (ISLICE, IS) *DLTYHE/ 
(RHOM*SPHTM*( ( (DX1 + DX2) /2. ) ♦♦2) ) 
(144./3600. ) *AKW (ISLICE, IS) ♦DLTYME/ 
(RHOn*SPHTM* (TAO (L) ♦♦2) ) 

RCHHDM = RCHRD 
RTRNVM = RTRNV 


GO TO 430 


NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTA RA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 


4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 
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350 
C 

C FOR 
C 


CONTINUE NTARAYT 

NTAFAYT 

MIXING ZONE; STATION NO. NFWD+1: NTARAYT 

NTARAYT 

IF (IHC(IS) .EQ.3) CALL RCPINS (IS ^ DELTA N , LCOOL, LCUP, LIN , LCOOLP , PINSNTA RA YT 


,EFAREA) 


AHTRN1 = EFAREA (IS) 

IF (IHC(IS) .EQ.3) A2 = EF AE EA ( I S) /2 . 

A3 = SPAN^DLX (LCOOLP)/2. 

IF (IHC(IS-I) .EQ.3) A3 = EFAP EA ( IS- 1 ) /2 , 
A4 = SPAN+DLX (LCOOLP) /2. 

IF (IHC (IS) .EQ.3) A4 = 

IF (IHC (IS) .EQ.3) GO TO 


= EFAREA (lS+1)/2, 
360 


360 

C 


IF (IHC (IS) .EQ. 2) HC(IS) = HCFRC D ( I S , LCOOL , LIN) 

AHTRNI = (DX5 + DX6)*S (ISLICE)/2. 

CONTINUE 

IF (IHC (IS-1) . EQ. 1) YIMPOU = 1.0 

IF (IHC(IS-1) .EQ.2) YCNVOU=1.0 + RCVEY*Afl2(IS-1)*(GAMC(IS-1)-1- 
IF (IHC(IS-I) .EQ.3) YFNSOU = 1.0 


)/ 2 . 


WXCP = WCROS(2,ISLICE,IS)»144.*CPC(IS)*3600. 

RHOBAR = ( (P(1, ISLICE,IS-2) +P ( 1 , ISLICE, I S) ) /24.) ♦ (1 ./R) *2. * 

Z WCROS (2, IS LICE, IS) / 

Z (T (1, ISLICE,LCDPP + 1) ♦WCROS ( 2 , ISLICE , I S- 1 ) + T (1 ,IS LICE , LCUP) ♦ 

Z WCROS (2,ISLTCE,IS-2) 


NTARAYT 
NTARA YT 
NTAPAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTAFAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 


+ TOG+WDUMP + T (1 ,ISLICE,LCOOL) *WCEOS (2, ISLICE, IS) ) NTARAYT 
VOLBAR = (A (LCUP) <-A(LCUPP+1) +A(LCOOL) ) * (DLX (LCOOLP) +DLX (LIN) ) /4 . NTAFAYT 
TRTRMJ = 0.0 NTARAYT 

IF (DLTYME. GT.O. 0. AND.TYHE.GE.O. ) TRTRMJ = PHOBAR* VOLBA R/ NTARAYT 

Z (2.*DLTYME+(WCROS (2, ISLICE, IS)**2) ) NTARAYT 

TCOF (LCOOL, 1) = TREPS*HX*HC (IS-2) *A1/WXCP NTARAYT 

TCOF (LCOOL, 2) = TREPS* ( (WCROS ( 2 , ISLICE, ISUP) /WCROS (2 , ISLICE , IS ) ) NTARAYT 

Z *(1.+AH2 (ISUP)* (GAHC(ISUP) -1.)/2.)* (CPC (ISUP)/ NTARAYT 

Z CPC (IS)) - HX*HC (ISUP) * (YCONVU+YFINSU) * (A1) /WXCP) NTARAYT 

Z - TRTRMJ*WCROS (2, ISLICE, IS-2) NTARAYT 

TCOF(LCOOL,6) = TR EPS* HX* HC (IS - 1 ) ♦ A3/WXCP NTARAYT 

TCOF (LCOOL, 7) = TREPS* ( (WCROS ( 2 , IS LICE , I S- 1 ) /WCROS (2 , I SLI CE , IS ) ) * NTARA YT 

NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARA YT 
NTARAYT 
NTA RA YT 
NTARAYT 
NTARAYT 
NTA RA YT 
NTARAYT 
NTA RA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 


Z (1.+AM2 (IS-1)* (GAHC(IS-1)-1.)/2.) * (CPC (IS-1)/ 

Z CPC (IS) ) - HX*HC (IS-1) * (YCNVUU+ YFNSUU) * (A3) /WXCP) 

Z - TRTRMJ* WCROS (2, IS LICE, IS-1) 

TCOF(LCOOL,11) = TREPS*HX*HC (IS) *A2/WXCP 

TCOF (LCOOL, 12) =TEEPS* ( (-FILMW/WCROS (2, ISLICE, IS) ) -1 .0- ( (GAMC (IS) 

Z -1 .)/2. ) *AM2 (IS) -HX*HC (IS) *(A2 + A4) * (YCONV +YFINS) 

Z /WXCP) - TRTRMJ+WCROS (2,ISLICE,IS) 

TCOF (LCOOL, 16) = TREPS*HX*HC ( IS) *A4/WXCP 

TCOF (LCOOL, 24) = TOG* (HX*HC (IS-2 ) * A 1*Y IMPU + HX*HC ( IS) * ( A2 +A4) * 

Z 
Z 

z 
z 
z 
z 
z 
z 
z 
z 
z 
z 


YIMP + HX*HC(IS-1) *A3*YIMPUU) /WXCP 
-POMP (IS) / (CPC (IS) *77 8. *144. *32.2) - (CPO/CPC (IS) ) *T0G* 

(WJ (ISLICE, IS-2) +WJ (ISLICE, IS-1) +WDOMP) /WCROS ( 2, 1 SLICE, IS) 
-T(1, ISLICE, LCUPS) *(1. -TREPS) *HX*HC(IS-2) *A1/WXCP 
-T (1, ISLICE, LCUP)* ( (1 .-TREPS)* ( (WCROS (2, ISLICE, ISUP) / 

WCROS (2, ISLICE, IS) ) *(1.+AH2 (ISUP) ♦ (GAMC (I SUP) - 1 . ) /2 . ) 

* (CPC (ISUP) /CPC (IS) ) - HX*HC(ISUP) * (YCON VU + YFINSU) 

♦ (A1)/WXCP) ♦ TRTRMJ* WCROS (2, ISLICE, IS-2) ) 

-T (1, ISLICE, LCUPP) *(1. -TREPS) *HX*HC(IS-1) *A3/WXCP 
-T(1,ISLICE,LCUPP+1)* ( (1. -TREPS)* ( (WCROS (2, ISLICE, IS- 1) / 

WCROS (2, ISLICE, IS) ) * ( 1 . +AM2 (IS- 1) ♦ (GAMC (IS- 1 ) - 1 . ) /2 . ) 

* (CPC (IS-1) /CPC (IS) ) - HX*HC(IS-1) ♦ (TCNVOU + YFMSOD)* (A3)/ 


4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 
4869 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 
49C2 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 
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Z HXCP) ♦ TBTRH3^BCR0S(2,ISLICE,IS-1) ) 

Z -T (1, ISLICB^LIN)* (1*-TEEPS)*HX*HC (IS) ♦A2/WXCP 

Z -T (1,ISLICE,LC00L) ♦(1.-TREPS) ♦ ( (-FILHB/HCROS (2^ISLICB,IS) ) -1.0 
Z - ( (GAMC (IS) -1 . ) /2. ) ♦AH2 (IS) 

Z - HX*HC (IS) ♦ (A2^A4) ♦ (TCONV+ YFI NS) /WXCP) 

Z - T(1,ISLICE,LCOOL) ♦TRTEHJ*WCBOS ( 2^ ISLICE, IS) 

Z -T (1, ISLICE,LCOOLP)» (1.-TREPS)*HX*HC (IS)*A4/NXCP 

GO TO 430 


C 

C 

C 

C 

C 

C 

c 

c 

c 


NTARATT 

NTARATT 

NTAEATT 

NTARATT 

NTARATT 

NTARATT 

NTARATT 

NTARATT 

NTARATT 

NTAEATT 

NTAEATT 

NTAEATT 

NTAEATT 

NTAEATT 

NTARATT 

NTARATT 

NTAEATT 

NTAEATT 


Q^^mm**** NTAEATT 

€**♦♦♦**♦ THIS BLOCK SETS OP TCOF ELEMENTS FOE STATIONS THAT ARB FOBHARDNTAHATT 
C OF THE FLOW SPLIT POINT, NTAHATT 

AND ARE ON THE SAME SIDE OF THE BLADE AS THE FLOW SPLIT POINT NTAHATT 
C******** NTARATT 

Q ^ 4c 4^ * 4( 4:i«t4c RATT 


C 

370 


CONTINUE 
ISUP = IS + 2 
LCUP = LCOOL + 10 
LCUPS = LCOOL ♦ 9 


LUP 

LDN 

IF 

IF 

IF 


= LCOOL ^ 
= LCOOL - 
(IS,EQ.2) 
(IS.EQ.1) 
(IHC (ISUP) 


8 

12 

LDN 

LDN 

. EQ. 


IF (IHC (ISUP) .EQ. 

IF (IHC (ISUP) .EQ. 

DX1 

= DLX(LUP) 

DX2 

= DLX (L) 

DX3 

= DLX(LUP-2) 

DX4 

= DLX (LOUT) 

DX5 

= DLX(LCUPS) 

DX6 

= DLX(LIN) 

DX7 

= DLX (LCUP) 

DX9 

= DLX (LUP-1) 

t-XIO 

= DLX(LJ) 

IF ( 

IS.GT.1) GO T 

DX2 

= DLX (8) 

DX4 

= DLX (6) 

DX6 

= DLX (9) 

DX10 

= DLX (7) 

J1 = 

22 

J2 = 

17 

J4 = 

21 

J5 = 

22 

J6 = 

8 

J8 = 

15 

GO TO 333 


= 3 
= 8 

1) YIMPU = 1.0 

2) YCONVU=1.0+RCVRT*AH2 (ISUP) *(GAMC (ISUP) -1.)/2. 

3) YFINSU = 1.0 


332 


NTARAYT 
NTARATT 
NTARA TT 
NTARATT 
NTARAYT 
NTARAYT 
NTAEATT 
NTARATT 
NTARAYT 
NTARAYT 
NTARATT 
NTAHATT 
NTARATT 
NTARA YT 
NTARAYT 
NTARATT 
NTARAYT 
NTA RA YT 
NTAEATT 
NTA RA YT 
NTAHATT 
NTARAYT 
NTARAYT 
NTAHATT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARATT 
NTARAYT 
NTARAYT 
NTAHATT 
NTARAYT 
NTARATT 


4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 
4 975 

4976 

4977 

4978 

4979 

4980 
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no o o n o 


C 

c 
c 
c 
c 
c 
c 

(;:« 4c 4^ ]|c * 4c * 4c 4c it 4c 4c ♦ 

(;; 4c 4c 4c 4c 4c 4c 4c 4c 

C******** SETUP FOB TRAILING EDGE REGION; 
Q4c 4c 4c 4c 4c 4c 4c 4c 


NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

4(4c:^4c4c>^4c>^4c4c«3^4 4c4c4c4c 4c4c4c4c4c4c4c*4c9^4c4c^«PJ^K;^ YT 

NTARAYT 

NTARAYT 

NTARAYT 


q4c4c4c4c4c4c4c4c4c4c4c4c*4c4c*4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c*4c4c4c4c*4c4c4c4c#^4c4c4c4c4c4c4c4c 4c*4c4e 4 c4c 4c4c4c ♦4*4c fj TA RA YT 


380 CONTINUE 

ISENS = IS -2* (IS/2) 


ISBNS = 0 WEANS IS IS EVEN AND STATION IS ON SUCTION SIDE 
ISENS = 1 WEANS IS IS ODD AND STATION IS ON PRESSURE SIDE 


LCOOL 


5*IS 

LIN 


LCOOL - 1 

L 

= 

LCOOL - 2 

LJ 

= 

LCOOL - 3 

LOUT 

= 

LCOOL - 4 

LUP 

= 

L - 10 

LDN 

= 

L + 10 

LCUP 

= 

LCOOL - 1i 

LCUPS 


LCUP - 1 

LCUPP 

= 

LCOOL - 6 

LCOOLP 

= 

LCOOL + 4 


C 


C 


C 


13 = 12 - LIN + LCOOL 
J1 = 12 - L + LUP 

J2 = 12 - L + LDN 

J4 = 12 - LCOOL + LCUPS 

J5 = 12 - LCOOL + LCUP 

J6 = 12 - LCOOL + LCUPP 

J8 = 12 - LCOOL + LCOOLP 

J9 = 16 

A1 = SPAN+DLX (LIN) /2 . 

A2 = A1 

A3 = SPAN + DLX (LCOOLP) /2. 

A4 = A3 

IF (IHC(IS-2) .EQ.3) A1 = EF AE EA ( IS- 2) /2 . 
IF (IHC (IS-2) .EQ.3) A3 = EF AREA (IS - 1 ) /2 . 
DX1 = DLX(L) 

DX2 = DLX(LDN) 

DX3 = DLX (LOUT) 

DX4 = DLX (LDN-2) 

DX5 = DLX (LIN) 

DX6 = DLX(LDN + 1) 

DX7 = DLX (LCOOL) 

DX9 = DLX(LJ) 

DX10= DLX(LDN-I) 


IF (IHC(ISUP) .EQ.1) YIMPU = 1.0 

IF (IHC (ISUP) .EQ.2) YCONVU= 1 . 0 + EC VR Y* AM 2 (I S UP) * (GAMC(ISUP) - 1 . ) /2 . 
IF (IHC (ISUP) .EQ.3) YFINSU = 1.0 


NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTA RAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARA YT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARAYT 

NTARA YT 


4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 
50C0 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 
5C15 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 
503b 
5C37 

5038 

5039 

5040 
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IF (IS.LT.NSTA-1) GO TO 390 


C 

C FOR THE EAST STATIONS IN THE TRAILING EDGE: 

C 

DX2 = 0.0 
DX4 = 0.0 
DX6 = O.G 
DX10= 0.0 
390 CONTINUE 

IF ( IHC(IS) . EQ. 3) GO TO 420 
IF ( IHC (IS) .EQ.2) GO TO 410 
GO TO 340 
C 

HCFRCD COMPUTES HC FOR FORCED CONVECTION 
C 

aiO CONTINUE 

TMP = (T (2, ISLICE,LCOOL) + T ( 2, I SLICE^ LIN) ) /2 . 

CALL GASTBL (TMP,C,CP ,GAM,PD, R^XMU) 

EE (IS) = 12.*3600.*ABS (WCROS (2rISLICE,IS) )*DH (I S) / ( A ( LCOOL) »XMU) 

C 

HC(IS) = .023*12 .* (C/DH (IS) )* (RE (IS ) **. 8) * (PD**. 333) 

AHTRN1 = (DX5 + DX6)*SPAN/2. 

GO TO 340 
C 

SUBROUTINE HCPTNS COMPUTES HC FOR A PIN FIN SURFACE OR FOR 
C TURBULENT FORCED CONVECTION CHANNEL FLOW 

ii20 CONTINUE 

IF (ISENS. EQ.O) GO TO 424 
AHTRNI = EFAREA (IS) 

HC(IS) HC(IS-l) 

GO TO 340 
C 

424 CALL HCPINS (I S , DELTA N , LCOOL , LCUP , LI N , LCOOLP , PINS ^ EFAREA) 

AHTRNI = EFAREA(IS) 

IF (IS. GE. NSTA-1) AHTRNI = AHTRNl/2. 

A2 = EFAREA (IS) /2. 

A4 = EFAREA (IS+1)/2. 

GO TO 340 
C 
C 

c 

C 

L30 CONTINUE 
440 CONTINUE 
450 CONTINUE 
C 

RETURN 

END 


NTARAYT 
NTAEAYT 
NTARA YT 
NTARAYT 
NTA RA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTAEAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTA RA YT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARAYT 
NTARA YT 
NTARAYT 


C 

- SOURCE. NTCOFTT 

NTCOFTT 


SUBROUTINE TCOEP ( IWRITE, HS , NIT, IPLOT, ALPH2) 

NTCOFTT 

c 


NTCOFTT 

c- 

SOURCE. NTCOFTT 

NTCOFTT 

c 


NTCOFTT 


DIMENSION POLD(15,80), PSA? (5) , X(80), ALPH2 (4) , DELTAN(15), 

NTCOFTT 


Z TTOTC(80), JSO(15) 

NTCOFTT 


DIMENSION PEXOLD(15), PIMOLD(15) 

NTCOFTT 


REALMS TCOF 

NTCOFTT 


COMMON /MATRX/ TCOF (400,30) 

NTCOFTT 

c 


NTCOFTT 


COMMON /PRPS/ CPO, GAMO, DP (80), SP(80), BE (80) , 

NTCOFTT 


5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 


5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 
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c 

c 


z 

CPC (80) , 

GAHC (80) , 

DUMRI (80) , 

DUMR2 (80) 

NTCOFTT 

NTCOFTT 

NTCOFTT 

5101 

5102 

5103 

COMMON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 

NTCOFTT 

5104 

Z 

GAMr 

PIM, 

E, 

SPAN, TOG, 

NTCOFTT 

5105 

z 

HDOMP^ 

HIM, 

AKC (15,80) 

, AKH(15,80), 

NTCOFTT 

5106 

z 

A.{4C0), 

AJET (80) , 

AH2 (80) , 

CNUM (80) , 

NTCOFTT 

5107 

z 

DH(80) ^ 

DHF (80) , 

DHJ (80) , 


NTCOFTT 

5108 

z 

DLX (400) , 

FF (80) , 

HC(80) , 

HG(80) , 

NTCOFTT 

5109 

z 

P(2, 15,80) 

,PEXIT (15) , 

PUMP (80) , 

QG(80) , 

NTCOFTT 

5110 

z 

QSNK(80) , 

RR (80) , 

S (15) , 

T (2, 15,400) , 

NTCOFTT 

5111 

z 

TG(80) , 

TAU (400) , 

RFC (80) , 


NTCOFTT 

5112 

z 

WJ(15,80) , 

WCROS (2,15 

,80) , 

XN (80) , 

NTCOFTT 

5113 

z 

ICOR, 

IFILM, 

IHUB, 

ITIP, 

NTCOFTT 

5114 

z 

ISBLOK, 

ISLICE, 

NBLKSZ, 

NSLICE, 

NTCOFTT 

5115 

z 

NFWD, 

NSTA, 

IHC (80) 


NTCOFTT 

NTCOFTT 

5116 

5117 

COMMON 

/TRNSNT/ RHOC, 

EHOM, 

SPHTC, 

SPHTM, 

NTCOFTT 

5118 

z 

DLTYME, 

TYME, 

TEPS, 

TYMM AX 

NTCOFTT 

5119 


PROGRAM IS SET TO HORK WITH THE FOLLOWING UNITS ON THE VARIABLES: 
PRESSURE, P, IS IN PSIA ************************’¥****************** 
FLOW RATES, WC,WJ,5WCHCS ARE IN LBM/SEC #*******x>********* **** ***** 
AREAS ARE IN IN**2 ******************** ******************** ******** 
ALL LENGTHS ARE IN INCHES ***************************************** 
HEAT TRANSFER COEFFICIENTS IN BTU/ (HR* FT** 2*R) ******************** 


BTA = 0. 


COEFFICIENT BOUNDARY 


WDUBP 

BTU/(HR*FT**2*R) , — HG,HC--GAS 


C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C SET UP 

C ASSUME 

C ASSUME 

C 

100 CONTINUE 

NODST = 5*NSTA 
N = NSTA - 1 
V = .70 

NSAVE = NODST-10 

TSAVE = T(2,ISLICE, NSAVE) 

C 

C NODST = NODE NUMBER OF LAST FLOW CHANNEL NODE, AT EXIT OF 
C 

110 


INDICATES THAT A HEAT TRANSFER 
CONDITION IS SPECIFIED 
1. INDICATES THAT A HEAT FLUX IS SPECIFIED 
UNITS EXPECTED ON THE FOLLOWING INPUT DATA ARE: 

LENGTHS ARE ALL IN INCHES — DLX, TAU, SPAN, DH, 
TEMPERATURES ARE ABSOLUTE (R) 

MASS FLOWS ARE ALL IN (LBM/SEC), WCROS, WJ, WFC, 

HEAT TRANSFER COEFFICIENTS ARE IN 
SIDE AND COOLANT SIDE . 

HEAT FLUX QG IS IN BTU/ { HE *FT**2) 

HEAT SINK, QSNK, IS IN BTU/(HR) 

THERMAL PROPERTIES ARE: CONDUCTIVITY-AKW-BTU/ (HE*FT*R) 

HEAT CAPACITY-CP-BTD/(LBM*R) 


FIRST GUESS AT TEMPERATURE DISTRIBUTION 
COOLANT TEMPERATURE IS CONSTANT, = PLENUM STATi: 
METAL TEMPERATURE IS CONSTANT, = 2200. R 


ON THE GAS BOUNDARY 


DPX 


120 

C 


TMP = TOG 
NODSF = 5*NFWD 
CONTINUE 


NTCOFTT 5120 
NTCOFTT 5121 
NTCOFTT 5122 
NTCOFTT 5123 
NTCOFTT 5124 
NTCOFTT 5125 
NTCOFTT 5126 
NTCOFTT 5127 
NTCOFTT 5128 
NTCOFTT 5129 
NTCOFTT 5130 
NTCOFTT 5131 
NTCOFTT 5132 
NTCOFTT 5133 
NTCOFTT 5134 
NTCOFTT 5135 
NTCOFTT 5136 
NTCOFTT 5137 
NTCOFTT 5138 
NTCOFTT 5139 
NTCOFTT 5140 
NTCOFTT 5141 
NTCOFTT 5142 
NTCOFTT 5143 
NTCOFTT 5144 
TEMPERATURENTCOFTT 5145 
NTCOFTT 5146 
NTCOFTT 5147 
NTCOFTT 5148 
NTCOFTT 5149 
NTCOFTT 5150 
NTCOFTT 5151 
NTCOFTT 5152 
NTCOFTT 5153 
NTCOFTT 5154 
TRAILING EDGNTCOFTT 5155 
NTCOFTT 5156 
NTCOFTT 5157 
NTCOFTT 5158 
NTCOFTT 5159 
NTCOFTT 5160 


138 


C-- 

C“ 

c 

c 

c— 

c 


160 

165 


FOH TRANSIENT CASES, ADJUST INITIAL GUESS OF PRESSURE DISTRIBUTION 
BASED ON THE VARIATION OF SUPPLY AND EXIT PRESSURES. 


IF (TIME. GT. 0.0) GO TO 234 
FOR STEADY STATE, ONLY INITIALIZE 


P'S ON FIRST OVERALL LOOP. 


IF (NIT.GT.1) GO TO 255 
PEXOLD(ISLICE) = PBX IT (ISLICE) 
PIMOLD(ISLICE) = PIM 

HRITE(6,165) (I,T(1,ISLICE,I) ,I=1,NODST) 


NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 


F0PMAT(1H1,' ASSUMED INITIAL TEMPERATURE DISTRIBUTION, (NODE NO.', NTCOFTT 


Z * ,T) 

CONTINUE 


•/7C C,I3,',',F8.2,'),')) 


NTCOFTT 

NTCOFTT 

NTCOFTT 

NTCOFTT 


170 
C 

C PRESSURE INITIALIZATION, GIVEN PIM (PLENUM STATIC PRESSURE) AND 

C PEXIT (GAS SIDE STATIC PRESSURE AT TRAILING EDGE), FIT PRESSURE TO NTCOFTT 

C A 

C CUBIC EQN. OF THE FORM A + B*X**3 

C OCCURS IN THE TRAILING EDGE CHANNEL 

C 


NTCOFTT 

ASSUMING 85% OF THE PRESSURE DROPNTCOFTT 


180 


190 


200 


C 

C- — 

C 

C 


x(i) = 0.0 

X(2) = DLX(IO) 

DO 180 I = 3,NFWD 
X(I) = DLX(5*I) + X(I-2) 

CONTINUE 

P(1, ISLICE, 1) = PIM - (PIM-PFXIT (ISLICE) )*. 15 

P(1, ISLICE, N) = PEXIT (ISLICE) 

P (1 , ISLICE, N+ 1) = P ( 1, ISLICE, N) 

P (1 ,ISLICE, NFWD-1)=P (1 , ISLICE, 1) 2 * ( P ( 1 , IS LICE, 1) - PEX IT ( ISL ICE) ) 

P (1 , ISLICE, NFHD) = P ( 1 , ISLICE , N FWD- 1 ) 

DO 200 I = 3,NFWD,2 
P(1, ISLICE, I) = P(1, ISLICE, 1) - (P(1, ISLICE, 1) -P(1, ISLICE, NFWD) ) * NTCOFTT 

Z (X(I)/X(NFWD))**3 NTCOFTT 

P (1 , ISLICE, 1-1 ) =P (1 , ISLICE, 1) - (P (1 , ISLICE, 1) -P ( 1 , IS LICE, N FWD- 1 ) )* NTCOFTT 


NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTC OFTT 


ISTRT = NFWD+1 
IFNL = N 

-POE TRAILING EDGE CHANNEL, 
IMPINGEMENT CHANNEL 


(X(I-1)/X(NFWD-1) ) »*3 


X VALUES ARE RELATIVE TO END OF 


NTCOFTT 
NTC OFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 
NTCOFTT 



X(NFWD+1) = (DLX (NODSF) + DLX (NODSF-5) ) /2 . 

NTCOFTT 

210 

ITEM = NFHD+3 

NTCOFTT 


DO 220 I = ITEM, N, 2 

NTCOFTT 


LCOOL = 5*1 

NTCOFTT 


X(I) = X{I-2) + DLX (LCOOL) 

NTCOFTT 

220 

CONTINUE 

NTCOFTT 


DO 230 I = ISTRT, IFNL, 2 

NTCOFTT 


P{1, ISLICE, I) = P(1, ISLICE, NFHD)-(P(1, ISLICE 

,NFWD) -PEXIT(ISLICE) ) *NTCOFTT 


Z 

(X (I) /X (N ) ) NTCOFTT 

230 

P (1 , ISLICE, I+1) = P (1, ISLICE, I) 

NTCOFTT 


DO 232 I = 1,NSTA 

NTCOFTT 

232 

POLD (ISLICE, I) = P (1 , ISLICE, I) 

NTCOFTT 


DO 233 I = 1,NSTA 

NTCOFTT 

233 

P (2, ISLICE, I) = P(1 , ISLICE, I) 

NTCOFTT 


GO TO 240 

NTCOFTT 

C 


NTCOFTT 

234 

DLTAPC = .84* (PIM-PIMOLD (ISLICE) ) 

NTCOFTT 


PIMOLD (ISLICE) = PIM 

NTCOFTT 


5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 
5164 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 
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DLTAPE = PBXIT(ISLICE) :-PEXOLD(ISLICE) 

NTCOFTT 

5221 


PEXOLD (ISLICE) = PEXIT (ISLICE) 

NTCOFTT 

5222 


DO 235 I = 1,NF«D 

NTCOFTT 

5223 

235 

P(2, ISLICE, I) = P(2, ISLICE, I) + DLTAPC 

NTCOFTT 

5224 


ISTRT = NFWD+1 

NTCOFTT 

5223 


IFNL = NSTA-1 

NTCOFTT 

5226 


DO 236 I = ISTRT, IFNL, 2 

NTCOFTT 

5227 


P (2, ISLICE, I) = P(2, ISLICE, I) ♦ DLT APC* ( 1 .C-X (I) /X { IFNL) ) + 

NTCOFTT 

5228 


Z DLTAPE+X (I) /X (IFNL) NTCOFTT 

5229 

236 

P(2, ISLICE, H-1) = P{2, ISLICE, I) 

NTCOFTT 

5230 


DO 237 I = 1,NSTA 

NTCOFTT 

5231 

237 

POLD (ISLICE,!) = P (2, ISLICE, I) 

NTCOFTT 

5232 


GO TO 255 

NTCOFTT 

5233 

C 


NTCOFTT 

523a 

24 0 

WRITE (6,245) 

NTCOFTT 

5235 

24 5 

FORMAT (/• INITIAL PRESSURE DIST. (STATION NO.,P) •/) 

NTCOFTT 

5236 


WRITE(6,250) (I,P(1, ISLICE, I) ,1=1, ISTRT) 

NTCOFTT 

5237 


WEITE(6,250) (I , P (1 ,ISLICE, I) ,I=ITEH,N,2) 

NTCOFTT 

5238 

250 

F0EMAT(7(' (•,I3,',*,F7.2,*)r')) 

NTCOFTT 

5239 

C 


NTCOFTT 

5240 

C 


NTCOFTT 

5241 

C 


NTCOFTT 

5242 

255 

CONTINUE 

NTCOFTT 

5243 


DO 260 1=1,4 

NTCOFTT 

5244 

260 

PSAV(I) =0.0 

NTCOFTT 

5245 

C 


NTCOFTT 

5246 

C 

-INITIALLY, THE FLOW SPLIT AT THE LEADING EDGE IS ASSUMED 

NTCOFTT 

5247 

c 

TO BE 50/50 (DELTA=.5) 

NTCOFTT 

5248 

c 


NTCOFTT 

5249 

c 

-IDELT COUNTS THE NUMBER OF FLOW SPLIT ITERATIONS. IF NO 

NTCOFTT 

5250 

c 

CONVERGENCE, IDELT IS SET NEGATIVE. 

NTCOFTT 

5251 

c — 

-DELTAN IS THE FRACTION OF FLCW TO THE SUCTION SIDE (EVEN 

NTCOFTT 

5252 

c 

NUMBERED STATIONS) 

NTCOFTT 

5253 

c 

-IVERGE COUNTS THE NUMBER OF ITERATIONS AT A GIVEN FLOW SPLIT 

NTCOFTT 

5254 

c 


NTCOFTT 

5255 

C IFKL = THE NUMBEB OF FLOW CHANNEL NODES, USED IN PRESSUBE CALCULA 

TICNSNTCOFTT 

5256 

c 


NTCOFTT 

5257 


IF (NIT. EQ. 1. AND.TYME.lt. 0. 0) DELTAN (ISLICE) = .5 

NTCOFTT 

5258 

275 

CONTINUE 

NTCOFTT 

5259 


IFNL = NSTA - 3 

NTCOFTT 

5260 


IVERGE = 0 

NTCOFTT 

526 1 


IDELT = 1 

NTCOFTT 

5262 


JS = 1 

NTCOFTT 

5263 


IF (NIT.GT.1) JS = JSO (ISLICE) 

NTCOFTT 

5264 

290 

CONTINUE 

NTCOFTT 

5265 


IVERGE = IVERGE + 1 

NTCOFTT 

5266 

300 

CONTINUE 

NTCOFTT 

5267 

C 


NTCOFTT 

5268 


JSENS = JS - 2* (JS/2) 

NTCOFTT 

5265 

C 


NTCOFTT 

5270 

C 

-SUBROUTINE FLOWS COMPUTES JET FLOW RATES, CROSSFLOW RATES, AND 

NTCOFTT 

5271 

C 

THE SQUARE OP THE MACH NUMBER 

NTCOFTT 

5272 

C 


NTCOFTT 

5273 

310 

CONTINUE 

NTCOFTT 

5274 

C 


NTCOFTT 

5275 


CALL FLOWS (JS , DELTAN, ICHOKE ,AMCHOK) 

NTCOFTT 

5276 

320 

CONTINUE 

NTCOFTT 

5277 


IF (WJ(ISLICE,JS) .LE.0.0) GOTO 370 

NTCOFTT 

5278 

C 


NTCOFTT 

5279 

C SUBROUTINE HCOOL COHPUTES IMPINGEHENT REGION HEAT TPANSFER COEFF' 

'NTS NTCOFTT 

5280 
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c 


NTCOFTT 

5281 


CALL HCOOL(JS) 

NTCOFTT 

5282 

330 

CONTINUE 

NTCOFTT 

5283 


CALL THRCON 

NTCOFTT 

5284 

C SVb 

ROUTINE THRCON EXTRACTS THERMAL CONDUCTIVITIES FROM INPUT 

NTCOFTT 

5285 

C 

TABLES AKCTQL AND AKWTBL. 

NTCOFTT 

5286 

c 


NTCOFTT 

5287 

335 

CONTINUE 

NTCOFTT 

5288 

c 


NTCOFTT 

5289 

c — > 

CHECK TO HAKE SURE STAGNATION HC IS LESS THAN MAXIMUM PHYSICALLY 

NTCOFTT 

5290 

c 

POSSIBLE VALUE. 

NTCOFTT 

5291 

c 


NTCOFTT 

5292 


IF (JS.EQ.1) ASTG = (DLX (9 ) +DLX ( 1 4 ) ) *S P AN/2 . 0 

NTCOFTT 

5293 


IF (JS.GT.1) ASTG = (DLX (5 * J S- 1 ) +DL X (5* JS + 9 ) ) ♦SPA N/2 . 0 

NTCOFTT 

5294 


HSTGMX = WJ (I5LICE,JS) *CFO^ 144. *3600. /ASTG 

NTCOFTT 

5295 


IF (HC(JS) . 3T. HSTGMX) HC(JS) = HSTGMX 

NTCOFTT 

5296 

c 


NTCOFTT 

5297 

c 


NTCOFTT 

5298 

337 

CONTINUE 

NTCOFTT 

5299 


CALL TAPFAY (JS, JSENS^DELTAN) 

NTCOFTT 

5300 

C 


NTCOFTT 

5301 

C 3GLVE THE TCOF ?aSAY AND SET NEW TEMPERATURE VALUES: 

NTCOFTT 

53C2 

c 


NTCOFTT 

5303 

34 0 

CONTINUE 

NTCOFTT 

5304 


CALL GAUSS (NOD3T, 23) 

NTCOFTT 

5305 


DO 350 I = l,NODST 

NTCOFTT 

5306 


T (2, ISLICE, I) = TCOF(I,24) 

NTCOFTT 

5307 


IF (T (2, ISLICE, I) .LE. 0.0) T ( 2, ISL IC E , I) = TOG 

NTCOFTT 

5308 

3i0 

CONTINUE 

NTCOFTT 

5309 


NTCOFTT 

5310 

3cC 

IF (ABS((T(2,ISLICE,NSAVE) -TSAVE) /ISAVE) .GT. .05) 

NTCOFTT 

5311 


Z CALL FLOWS (JS , DELTAN, ICHOKE, AHCHOK) 

NTCOFTT 

5312 


TSAVE = T(2, ISLICE, NSAVE) 

NTCOFTT 

5313 

(2; 


NTCOFTT 

5314 


IF (ICHOKE. EQ. C) GO TO 370 

NTCOFTT 

5315 


WRI TE (8^ 3 65) ISLICE, I VERGE, IDELT ,NIT , ICHOKE, AMCHOK 

NTCOFTT 

5316 

3c j 

FO?MAT(/10X, 'SLICE •,I2,» IS CHOKED FOR IVEFGE =',I3,», IDELT = 

', NTCOFTT 

5317 


Z 13, », NIT =’,I3,», ICHOKE =',I4,», M**2 =*,F6.3) 

NTCOFTT 

5318 

37 C 

CONTINUE 

NTCOFTT 

5319 

c 


NTCOFTT 

5320 

C COM 

PUTE NEW PRESSURES 

NTCOFTT 

5321 

c 


NTCOFTT 

5322 


CALL PARBAY (JS,JSENS, ICHOKE) 

NTCOFTT 

5323 

c 


NTCOFTT 

5324 

C SOLVE THE TCOF ARRAY AND COMPUTE NEW PRESSURES 

NTCOFTT 

5325 

C 


NTCOFTT 

5326 

430 

CONTINUE 

NTCOFTT 

5327 


CALL GAUSS (IFNL, 19) 

NTCOFTT 

5328 

440 

CONTINUE 

NTCOFTT 

5329 


DO 460 I = 1,IFNL 

NTCOFTT 

5330 

450 

? (2, ISLICE, I) = TCOF (1,20) 

NTCOFTT 

5331 

460 

CONTINUE 

NTCOFTT 

5332 


P (2, ISLICE, IFNL+1) = P (2 ,IS LICE , IFN L) 

NTCOFTT 

5333 


P(2, ISLICE, NSTA-1) = PEXIT (ISLICE) 

NTCOFTT 

5334 


P (2, ISLICE, NSTA) = PEXIT (ISLICE) 

NTCOFTT 

5335 

470 

CONTINUE 

NTCOFTT 

5336 


IF (IWRITE. EQ. 2) CALL WROUT (IDELT, JS, DELTAN, IVERGE) 

NTCOFTT 

5337 


IF (IPLOT.EQ.2) CALL PLOTMF ( ALPH2) 

NTCOFTT 

5338 

C 


NTCOFTT 

5339 

460 

CONTINUE 

NTCOFTT 

5340 
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c 


NTCOFTT 

534 1 

C CH 

ECK OVERALL CONVERGENCE 

NTCOFTT 

5342 

C 

CALCULATIONS ARE REPEATED UNTIL THE PRESSURE AT STATION 1 (NODE 5) 

NTCOFTT 

5343 

C 

HAS STABILIZED FOR 

NTCOFTT 

5344 

c 

FOUR ITERATIONS. THEN WE GO TO CHECK THi FLOW SPLIT. 

NTCOFTT 

5345 

c 


NTCOFTT 

534 6 


DO 490 1=1,3 

NTCOFTT 

5347 


K = 5-I 

NTCOFTT 

5348 

490 

P3AV (K) =PSAV(K-1) 

NTCOFTT 

5349 


PSA V (1) =P (2 ,ISLICE, JS) 

NTCOFTT 

5350 

C 


NTCOFTT 

5351 


DIFO = 0. 0 

NTCOFTT 

5352 


DO 500 1=1,3 

NTCOFTT 

5353 


JJ=I+ 1 

NTCOFTT 

5354 


DO 500 K=JJ,4 

NTCOFTT 

j35 5 


DIFN=ABS (PSAV (I) -PSAV (K) ) 

NTCOFTT 

5356 


IF (DIFO.LT. DIFS) DIFC==DIFN 

NTCOFTT 

5357 

500 

CONTINUE 

NTCOFTT 

5353 

c 


NTCOFTT 

5359 

510 

D1F0=DIF0/ (PIM-PEXIT (iSLICE) ) 

NTCOFTT 

5360 


PCNVRG = .01 

NTCOFTT 

536 1 


IF (NIT.EQ. 1 . AND . NSLICE. GT. 1 ) PCNVRG = .C5 

NTCOFTT 

53o2 


EPSN = (P (2, ISLICE, NFWD-1)-r (2, ISLICE, NFWD))/(P (2, ISLICE, NFWD-1)) 

NTCOFTT 

5363 


IF (IDELT.EQ. 1 . AND. I VERGE. LT. 3. AND. TYME. LE. 1“ . C) GO TO 51€ 

NTCOFTT 

5364 


IF (DIFO. LE. PCNVRG. AND. IVEPGE.GE. 4) GO TO 560 

NTCOFTT 

5365 

516 

CONTINUE 

NTCOFTT 

5366 


IF (I VERGE . IT. 1 0) GO TO 520 

NTCOFTT 

5367 


IF (ABS (PSAV ( 1) -PSAV (2) ) . GT . ABS ( P SA V ( 3) -P SA V (4) ) ) V = 1 . - ( 1 . - V) /2 . 

NTCOFTT 

536« 

520 

CONTINUE 

NTCOFTT 

53b9 


DO 530 I = 1,NSTA 

NTCOFTT 

537C 


P (2 , ISLICE, I) = P (2, ISLICE, I) + V* ( POLD (I SLICE , I ) - P ( 2 , IS LI CE, I ) 

) NTCOFTT 

5371 


IF (P (2,ISLIC£,I) .GE. PIM) P (2 , IS LIC E , I) = . 999*PIH 

NTCOFTT 

5372 


POLD (ISLICE,!) = P(2, ISLICE, I) 

NTCOFTT 

5373 


TTOTC(I) = T(2, ISLICE, 5*1) *(1. + (GAMC(I)-1.) »A«2(I)/2.) 

NTCOFTT 

5374 

530 

CONTINUE 

NTCOFTT 

5375 

C 


NTCOFTT 

5376 

540 

CONTINUE 

NTCOFTT 

5377 


IF (IVERGE.GT.30.OR.V.G1..95) 

NTCOFTT 

5378 


Z WRIT£(8,550) IVE EGE, V , (PS AV ( 1) , 1= 1 , 4 ) 

NTCOFTT 

5379 

550 

FOEWATC ♦»•*#***♦»* CONVERGENCE PROBLEHS ♦♦***♦*♦»**♦»* t / 

NTCOFTT 

5380 


Z • IVERGE= • ,13, ' ; V= ',F6.4,'; PSAV= ’,4(F10.2)) 

NTCOFTT 

5381 


IP (IVERGE. GT.50) GO TO 590 

NTCOFTT 

5382 


GO TO 290 

NTCOFTT 

5383 

C 


NTCOFTT 

5384 

C********* ONCE PBESSUHE-TEWPEPATUEE ITERATION HAS CONVERGED, CHECK 

NTCOFTT 

5385 

C 

THE FLOW SPLIT AND ADJUST IF NECESSARY. 

NTCOFTT 

5386 

c 


NTCOFTT 

5387 

560 

CONTINUE 

NTCOFTT 

5388 


IF ( IWRITE.EQ. 1 ) CALL WRO UT { IDELT , JS, DELTA N , I VERGE) 

NTCOFTT 

5389 


IF (ICHOKE.GT. 0) WRITE(6,565) ICHOK E, A MCHOK 

NTCOFTT 

5390 

565 

FOBHAT (/10X, • MACH NO. > 1 AT. STATION ',14,', M**2 =',F6.3/) 

NTCOFTT 

5391 

570 

CONTINUE 

NTCOFTT 

5392 


EPSN = (P (2 , 1 SLICE, NFWD-1) - P (2, IS LI CE, N FW D) ) / (P ( 2, ISL I CE, N FHD- 1 ) ) 

NTCOFTT 

5393 

575 

CONTINUE 

NTCOFTT 

5394 


IF (TYME.GT.O. 0) GO TO 590 

NTCOFTT 

5395 


CALL FLSPLT (A JET , EPSN , I SLICE, NOD SF , IDELT, JS , DELTA N, ICO NV) 

NTCOFTT 

5396 

580 

CONTINUE 

NTCOFTT 

5397 


IF (ICONV.EQ. 1) CALL WROUT (IDELT ,JS ,DELTAN, I VERGE) 

NTCOFTT 

5398 


IVERGE = 0 

NTCOFTT 

5399 


IF { ICONV.EQ.O ) GO TO 290 

NTCOFTT 

5400 
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590 


CONTINUE 

NTCOFTT 

5401 

IF (TTHE.GT.0.0) CALL WROUT (IDELT, JS^DELTAN ,I VERGE) 

NTCOFTT 

5402 

JSO(ISLICE) = JS 

NTCOFTT 

5403 

RETURN 

NTCOFTT 

5404 

END 

NTCOFTT 

5405 


C 

c 
c- 
c 


SOURCE. NTHRCNT 
SUBROUTINE THRCON 

SOURCE. NTHRCNT 


C0M?10N /BOUND/ BCXS (400) , BCXP (400) , BCHGS(IOOO), 
Z BCTGS(IOOO), BCTGP(IOOO), BCQGS(IOOO), 


QHOBIN(4C0), OHUB(80) 
QTIPIN(400), QTIP(80), 
BCTIME (5C) , 

WSVST (50) , 


BCHGP(IOOO) ^ 
BCQGP (1000) , 
THOB (80) , 


BCPGS(IOOO), BCPGP(IOOO), THUBIN(400), 

TTIPIN(400)^ TTIP(80), 
RHOVG (400) , PEX (400) , 
PTIO(50) , WPLEN, 
AKWTBL(20), NBCS, NBCP 


TOG^ 


TTIO (50) , 
AKCT3L(20) , 


COMMON /TCO/ 

ADUriP, 

ETA, 

CD, 

CP, 

Z 


3AH, 

Fin, 

R, 

SPAN, 

Z 


4DUMP, 

win , 

AKC (15,80) 

, AKW (15,80) , 

Z 


A (400) , 

AJET(80) , 

AH2 (80) , 

CNUH (80) , 

7 


OH (80) , 

DHF (80) , 

DHJ (80) , 


Z 


DLX (40C) 

. FF(8C), 

HC (80) , 

HG (80) , 

z 


? (2 , 15 ,8'') , PEXIT (1 5) , 

PUnP (80) , 

QG(80) , 

T 


2SSK (80) 

, PE(6C), 

3(15) , 

T (2,15 ,400) 

J 


TG (8C) , 

TAU (ar'-') , 

WFC (80) , 


z 


WJ ( 15,80) , WCROS (2, 15 

, 80) , 

XN (60) , 

z 


ICOP, 

IFILM, 

IHOB, 

ITIP, 

z 


IS3LOK, 

I5LICE, 

NBLKSZ, 

NSLICS , 

z 


NFWD, 

NSTA, 

IHC (80) 


DO 

1C0C I = 1 

,NSTA 




L 

= 5^1-2 





LJ 

= L - 1 





LOUT = L - 2 





TC 

= (T (2, ISLICE.LJ) 

+ T(2,ISLICE, 

LOUT) ) /2.C - 

460. 


= T(2,I?LICE,L) - 

46C. 



JK 

UP COATING 

THERMAL 

CONDUCTIVITY 

IN TABLE AKCTBL. 

IF 

(TC.GT. AKCTBL (1) ) 

GO TO 150 



r 0 rt A 

rE“PEF ATUr. 

S LOWER 

THAN THE BOTTOM OF THE TABLE, EXTRAFOL 


HhLOW T^^BLr. 
FAZIO = (TC - 
AKC (ISLiCi , I) 
GO TO 50C 

CONTINUE 


size of T.aaLE 


AKCT3L ( 1) ) /(AKCT3L (3) ~ AKCT3L(1)) 

= AKCTBL{2) + (AKCT3L(4) -AKCTBL(2) ) *RATIO 


rO 152 J = 3,19,2 
JLSr = J-1 

IF (AKCT5L(J) .LF.O. 1) GO TO 154 

CONTINUE 

JLSTM = JLSI-1 ■ 

.GCATr WHEFE T E'l F F F. AT U2 Z FALLS IN TUE TABLE AKCT3L. 


NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 

NTHRCNT 


5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 
54 17 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 
54 3 8 

5439 

5440 

5441 

5442 
544 3 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 
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c 


DO 170 J = 3,JLSTM,2 
IF (TC.GT. AKCTBL (J) ) GO TO 160 
C 

C FOUND LOCATION, NON INTERPOLATE. 

C 

RATIO = (TC - AKCTBL(J-2))/(AKCTBL(J) - AKCTBL(J-2)) 
AKC(ISLICE,I) = AKCTBL(J-I) ♦ (AKCTBL(J*1) - AKCTBL (J- 1 ) ) *RATIO 
GO TO 500 

160 IF (J.LT. JLSTH) GO TO 170 
C 

C TEHPERATORE IS ABOVE THE RANGE OF THE TABLE, SO EXTRAPOLATE OP. 

C 

RATIO = (TC - AKCTBL(J-2))/ (AKCTBL(J) - AKCTBL(J-2)) 
AKC(ISLICE,I) = AKCTBL(J-I) + (AKCTBL(J+1) - AKCTBL (J- 1 ) ) *HATIO 
GO TO 500 
170 CONTINUE 
500 CONTINUE 
C 

C NON LOOK OP METAL CONDUCTIVITY IN TABLE AKHTEL. 

C 

IF (TH.GT.AKHTBL(I) ) GO TO 55C 
C 

C FOE A TEMPERATURE LOWER THAN THE BOTTOM OF THE TABLE, EXTRAPOLATE 
C BELOW TABLE 

RATIO = (TW - AKWTBL { 1) ) /(AKWTBL (3) - AKWTBL(I)) 

AKW (ISLICE,!) = AKWTBL{2) + ( AKWT BL {«) - AKWT BL (2) ) *R AT 10 

GO TO 10C0 
C 

550 CONTINUE 
C 

C FIND SIZE OF TABLE 
C 

DO 552 J = 3,19,2 
JLST = J-1 

IF (AKWTBL (J) .LE.O. 1) GO TO 554 
552 CONTINUE 
554 JLSTM = JLST-1 
C 

C LOCATE WHERE TEMPERATURE FALLS IN THE TABLE AKWTBL. 

C 

DO 570 J = 3, JLSTM, 2 
IF (TW. GT. AKWTBL (J) ) GO TO 5b0 
C 

C FOUND LOCATION, NOW INTERPOLATE. 

C 

RATIO = (TW - AKWTBL(J-2))/(AKWTBL(J) - AKWTBL(J-2)) 

AKW (ISLICE,!) = AKWTBL(J-I) + (AKWTBL(J + 1) - AKWTBL (J- 1 )) *RATIO 

GO TO 1000 

560 IF (J.LT. JLSTM) GO TO 570 
C 

C TEMPERATURE IS ABOVE THE RANGE OF THE TABLE, SO EXTRAPOLATE UP. 

C 

RATIO = (TW - AKWTBL (J-2) )/ (AKWTBL (J) - AKWTBL(J-2)) 

AKW (ISLICE, I) = AKWTBL(J-I) + (AKWTBL(J+1) - AKWTBL (J- 1 ))* RATIO 
GO TO 1000 
570 CONTINUE 
1C00 CONTINUE 
RETURN 
END 
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n o o n o 


C SOURCE. NWEOTTT 

SUBROUTINE WROUT (IDELT , JS , D ELTA N ^ I VE FG E) 
SOURCE. NWROTTT 


C 


C 


C 


c 


c 


DUMR2 CARRIES THE I 

COKMON /CHKHOL/ 

COMMON /FLMCOL/ 

Z 


HPINGEHENT 

JET R 

WCHK (80) , 

WCHK 

EHOVGA (faO) , 

FG(8 

XHUC (30) , 

FMES 


EYNOLDS NO. IN FROM HCCOOL 
DM 

0) , XFC (8C) , FLMEFF (80) 
(80), REFC(EO), NFCSUP(80) 


COMMON /PRPS/ 

CPO, 

GAMO, 

DP (80) , 

SP(30), BE (80), 

Z 

CPC (80) , 

GAMC (60) , 

DUWE1 (80) , 

DOMR2(80) 

COMMON /EADL/ 

APLN (15) , 

DPLN(15) , 

RIS (15) , 

ROUT( 15) , 

Z 

PIN (15) , 

TIN ( 15) , 

W(15) , 

HS 


COM 

MON 

/TCO/ ADUMP, 

BTA, 

CD, 

CP, 


Z 



GAM, 

PIM, 

P, 

SPAN, 


Z 



WDOMP, 

WIM , 

ARC (15,80) , AKW (15 , 

,80) 

z 



A (400) , 

SJET (80) , 

AM2 (80) , 

CNUM (80) , 

z 



DH (80) , 

DHF (80) , 

DHJ (80) , 



z 



DLX (400) , 

FF(80) , 

HC (80) , 

HG (80) , 

r 

z 



P (2,15,80) 

, PEXIT (15), 

PUMP (80) , 

QG(80) , 


z 



QSNK (80) , 

RR (80) , 

S(15) , 

T(2,15, 

r400; 

2 



TG (80) , 

TAU (400) , 

HFC (80) , 



Z 



WJ ( 15,80) , 

WCROS (2,15 

,80) , 

XN (80) , 

r 

Z 



ICOR , 

IFILM, 

IHUB, 

ITIP, 


Z 



ISBLOK, 

ISLICE, 

N3LKSZ, 

NSLICE, 

f 

Z 



NFWD , 

NSTA, 

IHC (80) 



COM 

MON 

/TEN 

SKT/ RHOC, 

BHOK, 

SPHTC, 

SPHTf 


z 



DLTYME, 

TYME, 

TEPS, 

TYMMJ 

IX 

COM 

MON 

/UNI 

TS/ CINCH (2) 

, CHTC (2) , 

CHFLX (2) , 

CPRSR ( 2) , 

CMS 

2 



CTMPF (2) 

, CTCON (2) , 

CDEN (2) , 

CSPHT(2) , 

CGA, 

Z 



CVISC (2) 

, CRHOVG (2) 

, lUNITS 




DIMENSION DUMI (1 0) ,DUK2 (10) ,DELTAN (15) 

10 CONTINUE 

IF (ISLICE.EQ. 1) TBULK = O.C 
IF (ISLICE. EQ. 1 ) TOTSFN = 0.0 
TTYME = TYME 

IF (TTYME .LT. 0.) TTYME=0 .0 
WRITE (6,90) TTYME, DLTYME,WS 

90 F0RMAT(1H1 ,10X, » TIME = ',Fb.2,» SEC,, STEP SIZE = «,F6,3, 

Z • SEC., WHEEL SPEED =*,F8.1,» RPM«) 

8R05 WRITE (6,8806) I SLICE , IDELT , JS , DELTA N ( I SLICE) ,IVERGE 
ITRBG = NFWD + 2 
WRITE (6, 100) ITRBG 


C 


IF (lUNITS. EQ. 2) WRITS (6,27 0) 
IF (I UNITS. EQ. 1) WRITE (6 j^27 1) 
DO 210 I = 1,NSTA,2 
II = I 

LCOOL = 5»II 
NOS = LCOOL - 4 
DO 205 J = 1,4 
JM = NOS+J-1 
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5555 
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205 


210 


220 


C 


C 


225 


D0M1(J) = T (2,ISLICE, JM) - utO. 

IF (lONITS.EQ. 1) DUBI (J) = T (2 , IS LI CE, J B) /CT BPF ( 1 ) 

CONTINUE 

DUBI (5) = T(2,ISLICE,LCOCL) - 460. 

IF (lONIXS. EQ. 1 ) DUBI (5) = T (2 , ISLICE , LCOOL) /CTB PF ( 1) 

DUBI (6) = P(2, ISLICE, II) /CPRSE(IUNTTS) 

DUM1(7) = DUBI (6)* (1 . + (GABC (II) -1. ) *AB2 (II)/2.) **(GABC { II) / 

Z (GABC (II) -1.)) 


DUBI (8) = HC (II) /CHTC (lUNITS) 

DUBI (9) = HG (II) /CHTC (lUNITS) 

DUBI (10)= TG(II) - 460. 

IF (lUNITS. EQ. 1) 

IF (BTA. GT. .00 1) 

IF (BTA .GT. .001) 

HEITE(6,274) (II 


DUBI (10) = TG (II)/1.8 
DUB1(10) = 9.S20 

DUBI (9) = 9. E20 
LCOOL, (DUBI (J) , J=1 , 10) ) 


IF (I.EQ.NFWD) WBITE(6, 276) 

CONTINUE 

IF (lUNITS. EQ. 2) WRITE(6,278) 

IF (lUNITS. EQ. 1) WRITE(6,279) 

DO 220 I = 1,NSTA,2 
II = I 

LCOOL = 5*11 
NOS = LCOOL - 4 

DUH2(1) = WJ (ISLICE, II) /CBSFL (lUNITS) 

DUB2(2) = DUBR2(II) 

DUB2(3) = WCROS (2, ISLICE, II) /CMSFL (lUNITS) 

DUM2(4) = RE(II) 

DUB2(5) = SQHT (AB2 (II) ) 

D0B2(6) = FF(II) 

DUM2(7) = WFC (II) /CBSFL (lUNITS) 

DU.B2(8) = FLBEFF(II) 

WRITE (6,280) (II, LCOOL, DUB2 (1) ,HCHK (II) , ( DUB 2 ( J ) , J = 2, 8 ) ) 

IF (I.EQ.NFWD) WRITE(6, 276) 

CONTINUE 

DUB2(9) = WDUBP/CBSFL (lUNITS) 

IF (ADUBF. GT. 0.0. AND. lUNITS. EQ. 2) WRITE(6,290) DUB2 (9) , WCH KDB 

IF (ADUBP. GT. 0.0. AND. lUNITS. EQ. 1) WRITE(6,291) DUB2 (9) , WCHKDB 


ITRBG = NFWD + 1 
WRITE(6,124) ISLICE, ITRBG 

IF (lUNITS. EQ. 2) WRITE(6,270) 

IF (lUNITS. EQ. 1) WRITE(6,271) 

DO 230 I = 1,NSTA,2 
II = I 

IF (I.GT. 1) 11=1-1 

LCOOL = 5*11 
NOS = LCOOL - 4 
DO 225 J = 1,5 
JB = NOS+J-1 

DUHI(J) = T (2, ISLICE, JB) - 460. 

IF (lUNITS. EQ. 1) DUB1(J) = T ( 2, ISLICE, JB) /CTBPF ( 1 ) 

CONTINUE 

DUBI (6) = P (2, ISLICE, II)/CPESR (lUNITS) 

DUH1(7) = DUB1(6)*(1.+ (GABC(II)-1.) *AB2(II)/2.)**(GABC (II)/ 

Z (GABC(II) -1 .) ) 

DUBI (8) = HC(II)/CHTC(IUNITS) 

DUBI (9) = HG (II) /CHTC (lUNITS) 

DUBI (10)= TG(II) - 460. 

IF (lUNITS. EQ.1) DUBI (10) = TG(II)/1.8 
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IF (BTA.GT. .001) DOB1 (10) = 9.E20 
IF (BTA.GT. .001) D0(I1(9) = 9.E20 
HBITE (6,274) (II,LCOOL, (DOMI (J) ,0=1 , 10) ) 

IF (I.EQ.NFMD) WRITE (6, 276) 

230 COHTINOE 

IF (IUNITS.EQ.2) HRITE(6,278) 

IF (lONITS.EQ. 1) HRITE(6,279) 

DO 240 I = 1,NSTA,2 
II = I 

IF (I.GT.1) II = 1-1 
LCOOL = 5*11 
NOS = LCOOL - 4 

D0H2(1) = «J (ISLICE, II)/CnSFL (lONITS) 

00(12(2) = DUHR2(II) 

DUM2(3) = HCROS (2,ISLICE,II)/CMSFL{IONITS) 

D0M2(4) = RE(II) 

DOM2(5) = SQBT (AM2 (II) ) 

D0M2{6) = FF(II) 

D0M2(7) = WFC (II)/CHSFL(IONITS) 

D0«2(8) = FLHEFF(II) 

WRITE (6,280) (II,LCOOL,DUM2 (1 ) , WCHK (II) , (DO H 2 (J) , J= 2, 8 ) ) 

IF (I.EQ.NFWD) WRITE(6,276) 

240 CONTINOE 

D0M2(9) = WDUHP/CMSFL (lUNITS) 

IF (ADOMP.GT.O.O.AND. IUNITS.EQ.2) WRITE(6,290) DOM2 (9) , WCH KDN 
IF (ADOMP.GT. 0.0 . AND.IUNITS. EQ. 1 ) WRITE(6,291) DOM2 (9) , WCHKDM 
C 

1000 CONTINUE 
C 

C TO DETERMINE THE MEAN OUTSIDE SURFACE TEMPERATURE FOR EACH 
C SIDE OF THE BLADE, AND 

C TO LOCATE THE EXTREME TEMPERATURE POINTS, BOTH HIGH AND LOW. 

C 

XTOT = 0. 

XTOTMD =0.0 

HBAR = HC (1 )* (DLX (2) +DLX (3) ) /2. 

TBAR = T (2, ISLICE, 1) ♦ (DLX(6) +DLX ( 1 1) ) /2. 

TBARMD = T (2, ISLICE, 3) * (DLX (8) <-DLX ( 13) ) /2. 

ISTAT = 1 

DO 1004 I = 2,NSTA 
NODH = 5*1-2 
ISTAT = ISTAT + 5 
ISTATD = ISTAT + 10 

TBARMD = TBARMD ♦ T (2, ISLICE, NODM) * (DLX (NODM) +DLX (NODH+ 10) ) /2. 
XTOTMD = XTOTMD * DLX (NODM) 

TBAR = TBAR + T (2 , IS LICE ,ISTAT) * (D LX ( 1ST AT) + DLX ( 1ST AT D) ) /2 . 
XTOT = XTOT + DLX (ISTAT) 

HBAR = HBAR ♦ HC (I) * (DLX (1ST AT) ♦ DLX (1ST ATD) ) /2. 

1004 CONTINUE 

IF (IUNITS.EQ.1) TBAR = TBA R/ (1 . 8 *XTOT) 

IF (IUNITS.EQ.2) TBAR = IBAR/XTOT - 460. 

IF (IUNITS.EQ.1) TBARMD = T BARMD/ ( 1 . 8*XTOTMD) 

IF (IUNITS.EQ.2) TBARMD = TBA RHD/XT OTMD -460. 

TBOLK = TBULK + TBARMD*S (ISLICE) 

TOTSPN = TOTSPN + S (ISLICE) 

HBAR = HBAR/(XTOT*CHTC(IUNITS) ) 

1008 IF (IUNITS.EQ.2) WRITE (6 ,1 1 1 5) T BAP, T BARMD, HBAR 
IF (IUNITS.EQ.1) WRITE(6, 1 1 16) TB AR , TBA RMD, H BAR 
C 

TSMAX = T (2, ISLICE, 1) - 460. 
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TSMIN = T(2,ISLICE, 1) - 460. 

NWROTTT 

5701 



TPHM = T(2,ISLICE,1) - 460. 

NWROTTT 

5702 



TPHIN = T(2, ISLICE, 1) - 460. 

NWEOTTT 

5703 



ISUCHX = 1 

NWBOTTT 

5704 



ISOCMN = 1 

NWEOTTT 

5705 



IPESMX = 1 

NWROTTT 

5706 



IPESMN = 1 

NWROTTT 

5707 



IPEES = 1 

NWROTTT 

5708 



ISOCT = -4 

NWROTTT 

5709 

c 



NWROTTT 

5710 



DO 1080 I = 3,NSTA,2 

NWROTTT 

5711 



IPEES = IPEES + 10 

NWEOTTT 

5712 



ISOCT = ISUCT ♦ 10 

NWROTTT 

5713 

c 



NWROTTT 

5714 

c 



NWROTTT 

5715 



IF (T(2, ISLICE, 1PEES)-460..GT.TPMAX) GOTO 1030 

NWROTTT 

5716 



IF (T (2, ISLICE, IPEES) -460. .LT.TPMIN) GO TO 1040 

NWROTTT 

5717 



GO TO 1050 

NWROTTT 

5718 

c 



NWROTTT 

5719 

1030 


TPMAX = T(2, ISLICE, IPEES) -460. 

NWROTTT 

5720 



IPESHX = I 

NWROTTT 

5721 



GO TO 1050 

NWROTTT 

5722 

c 



NWROTTT 

5723 

1C40 


TPWIN = T (2, ISLICE, IPEES) -460. 

NWROTTT 

5724 



IPBSHN = I 

NWROTTT 

5725 

C 



NWROTTT 

5726 

1050 


IF (T (2, ISLICE, ISUCT) -460. . GT.TS MAX) GO TO 1060 

NWROTTT 

5727 



IF (T (2, ISLICE, ISOCT) -460. .LI. TSMIN) GO TO 1070 

NWROTTT 

5728 



GO TO 1080 

NWROTTT 

5729 

c 



NWROTTT 

5730 

1060 


TSBAX = T (2, ISLICE, ISOCT) -460. 

NWROTTT 

5731 



ISUCMX =1-1 

NWROTTT 

5732 



GO TO 1080 

NWROTTT 

5733 

C 



NWROTTT 

5734 

1C70 


TSMIN = T (2, ISLICE, ISUCT) -460. 

NWROTTT 

5735 



ISOCMN =1-1 

NWROTTT 

5736 

1080 


CONTINUE 

NWROTTT 

5737 

C 



NWROTTT 

5738 

C 



NWROTTT 

5739 



IF (ISLICE. LT. NSLICE) GO TO 1095 

NWROTTT 

5740 



TBULK = TBULK/TOTSPN 

NWROTTT 

5741 



IF (IDNITS. EQ. 1) WRITE (6, 109 1) TYME,TBOLK 

NWROTTT 

5742 



IF (lUNITS. EQ.2) WEI TE (6 , 1 0 90 ) TYME, TBULK 

NWEOTTT 

5743 

C 



NWEOTTT 

5744 

1090 


FORMAT ( 1H2, 30X, ' TIME =',F6.3,' SEC., OVERALL BULK TEMPEBATUFE 

= * , NWROTTT 

5745 


Z 

F7 . 1 , • F • ) 

NWROTTT 

5746 

1091 


FORMAT ( 1H2, 30X, 'TIME =',F6.3,' SEC., OVEEALL BULK TEMPERATUPE 

NWROTTT 

5747 


Z 

F7 . 1 , • K ' ) 

NWEOTTT 

5748 

1095 


CONTINUE 

NWEOTTT 

5749 

1115 


FOFMAT(/' OVERALL AREA WEIGHTED AVERAGES — OUTSIDE T = ' , F7 . 1 , 

NWEOTTT 

5750 


z 

' F, MID-WALL T = ' ,F7 . 1 , 

NWROTTT 

5751 


z 

• F, COOLANT H = 'F6.1,* 3 TO/ ( HR/FT**2/R) • ) 

NWEOTTT 

5752 

1116 


FORMAT (/' OVERALL AREA WEIGHTED AVERAGES — OUTSIDE T =',F7.1, 

NWEOTTT 

5753 


2 

' K, MID-WALL T =',F7.1, 

NWROTTT 

5754 


z 

• K, COOLANT H = ' F6 . 1 , ' W ATTS/M»*2/K ' ) 

NWROTTT 

5755 



IF (lUNITS. EQ.2) WRITE (6 , 1 1 iC ) T PM A X , IFRS MX ,TPMI N , I PP.S ,M N , T SM AX , 

NWROTTT 

5756 


z 

ISUCMX, TSMIN, ISOCMN 

NWROTTT 

5757 

1120 


FORMAT( /12X, ' EXTREMES CF OUTER SURFACE TEHIEPATURES (F)'/6X, 

NWROTTT 

5758 


z 

•PEESSOPE SIDE: ', 

NWEOTTT 

5759 


z 

F7.1,' AT STATION \ 12 , • , • , F7 . 1 , • AT STATION ',I2/6X, 

NWEOTTT 

5TbO 
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1125 

1130 

ICO 

124 

8806 

270 


27 1 


274 
27 6 
27 8 


27 9 

280 
280 
29 1 


Z »SOCTION SIDE: 

Z F7.1^* AT STATION •,F7.1,« AT STATION *,12) 

IF (IUNITS.EQ.2) GO TO 1130 
TPMAX = (TPMAX+460.)/1*6 
TPWIN = (TPMIN+460.) /1-8 
TSMAX = (TSMAX+460.)/1*8 
TSHIN = (TSMIN+460.) /1*8 

WRITE (6,1125) TPMAX, IPRS MX, TPHIN,IPRSJ1N, TSMAX, ISOCMX, TSMIN , ISUCMN 
FORMAT( /12X, • EXTREMES OF OUTER SURFACE TEMPERATURES (K) */6X, 


Z •PRESSURE SIDE: ', 
Z F7.1,» AT STATION 
Z 'SUCTION SIDE: •, 
Z F7.1,» AT STATION 


M2,* 

•rl2,« 


SF7.1,» 

•^F7.1,» 


AT STATION •,I2/6X, 
AT STATION • , 12) 
TRAILING EDGE REGION BEGINS AT •, 


, TRAILING EDGE 
SPLIT AT *, 


OUTSIDE *INTERFACE* MID-WALL* INSIDE * •, 
P* TOTAL P * HC,BTU/HR* HG,BTU/HP* TG • 

T (F) * T (F) ♦ T (F) ♦ T (F) * T 

(PSIA) * /FT**2/R * /FT**2/R * (F) • 


CONTINUE 

FORMAT(30X, •PRESSURE SIDE 
Z •STATION-* ,13) 

FORMAT (lHl,/» SLICE NO. • , 1 2, 17 X, • S UCTION SIDE 
Z 'REGION BEGINS AT ST ATION- • , 13) 

FORMAT{* SLICE NO.', 12,*, FLOW SPLIT N0.»,I3,*, 

Z •STATION* ,13 , 

Z •; FRACTION SPLIT TO SUCTION SIDE IS • , F7 . 4 , 16 , • ITERATIONS*) 
FORMAT (/ 

Z • STATION*COOLANT* 

Z •COOLANT * STATIC 
Z/* NUMBER *NODE NO* 

Z • (F) * (PSIA) 

Z/119 (•*•)/) 

FORMAT (/ 

Z • STATION*COOLANT* OUTSIDE *INTEEFACE* MID-WALL* INSIDE * •, 

Z *COOLANT * STATIC P* TOTAL P * HC * HG ♦ TG* 

Z/» NUMBER *NODE NO* T (K) * T (K) * T (K) * T (K) * T •, 

Z • (K) * (KPA) * (KPA) * W/M**2/K * W/M**2/K * (K) • 

Z/119 (•*•)/) 

FORMAT (16, 2 X, 16, 1X,7F10. 1, 3F11. 1) 

FOPMAT(47X, 'BEGIN TRAILING EDGE REGION*) 

FORMAT (1H2,/* STATION * COOLANT * IMP. FLOW * RE-NO. * CROSSFLOW* 
Z • * RE-NO. * MACH NO., ♦• 

Z • FRICTION * FILM FLOW * EFFECTIVENESS * •/ 

Z • NUMBER * NODE NO * (LBM/SEC) * JET * (LBM/SEC) * 

Z •* CROSSFLOW * CROSSFLOW *• 

Z • FACTOR * (LBM/SEC) * * /1 1 5 ( * * * ) / 19 X , * ♦ • , 20 X , * * • , 4 6X , * * • ) 

FORMAT ( 1H2,/* STATION * COOLANT * IMP. FLOW * RE-NO. * CROSSFLOW* 
Z • * EE-NO. * MACH NO., *• 

Z • FRICTION * FILM FLOW * EFFECTIVENESS **/ 

Z » NUMBER * NODE NO * (KG/SEC) * JET ♦ (KG/SEC) • 

Z •* CROSSFLOW * CROSSFLOW *• 

Z * FACTOR * (KG/SEC) * * /1 1 5 ( • * * ) /19X , * * • ,20X, • * * ,4 6X , * * • ) 

FORMATdH ,I5,5X,I5,* * * , F9 . 6 , Al , F9 . 1 , * * * , F9 . 6, 2X, F9 . 1 , 4X , F9 . 

Z ,2X,F9.6,* * • ,F9.6,4X,F9.6) 

FORMAT (//15X, • FLOW DUMPED DIRECTLY INTO TRAILING EDGE REGION IS 
Z ,F10.6,A1,* LBM/SEC*) 

FORMAT (//15X, * FLOW DUMPED DIRECTLY INTO TRAILING EDGE REGION IS 
Z ,F10.6,A1,* KG/SEC*) 

RETURN 

END 
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TABLE I. - SUBROUTINE CALLS AND COMMON BLOCKS 


Subroutine 

name 

Source 

module 

COMMON 

blocks 

Called 

subroutines 

Calling 

subroutines 

BLOCK DATA 

NGASDAT 

/GAAS/ 

NONE 

NONE 

FLOWS 

NFLOEST 

/CHKHOL/ 

/FLMCOL/ 

/FRIC/ 

/PRPS/ 

/TCO/ 

/TRNSNT/ 

GASTBL 

TCOEF 

FLSPLT 

NFLSPLP 

NONE 

NONE 

TCOEF 

GASTBL 

NGASTB 

/GAAS/ 

NONE 

FLOWS 

HCFRCD 

HCOOL 

HCPINS 

PLNUM 

TARRAY 

GAUSS 

NGAUS 

/MATRX/ 

NONE 

TCOEF 

GETIN 

NGETINT 

/BOUND/ 

/FLMCOL/ 

/DM POOR/ 

/RADL/ 

/SPECL/ 

/TCO/ 

/TRNSNT/ 

/UNITS 

INPRT 

MAIN PROGRAM 

HCFRCD 

NHCFRCT 

/TCO/ 

GASTBL 

HCOOL 

TARRAY 

HCOOL 

NHCOOLT 

/IMPCOR/ 

/PRPS/ 

/TCO/ 

GASTBL 

HCFRCD 

TCOEF 

HCPINS 

INPRT 

NHCPINT 

NINPRTT 

/PRPS/ 

/TCO/ 

GASTBL 

TARRAY 

/BOUND/ 

/GAAS/ 

/PRPS/ 

/RADL/ 

/SPECL/ 

/TCO/ 

/TRNSNT/ 

/UNITS/ 

PREP 

GETIN 

MAIN PROGRAM 

NTTACT 

/BOUND/ 

/FLMCOL/ 

/GAAS/ 

/RADL/ 

/SPECL/ 

/TCO/ 

/TRNSNT/ 

/UNITS/ 

GETIN 

PLNUM 

PLOTMF 

PREP 

TCOEF 

NONE 


Subroutine 

name 

Source 

module 

COMMON 

blocks 

Called 

subroutines 

Calling 

subroutines 

PARRAY 

NPARAYT 

/MATRX/ 

/PRPS/ 

/TCO/ 

/TRNSNT/ 

NONE 

TCOEF 

PLNUM 

NPLENMP 

/RADL/ 

/TCO/ 

/TRNSNT/ 

/UNITS/ 

GASTBL 

MAIN PROGRAM 

PLOTMF 

NPLOTIT 

/PRPS/ 

/SPECL/ 

/TCO/ 

/TRNSNT/ 

/UNITS/ 

NONE 

TCOEF 

MAIN PROGRAM 

PREP 

NPREPAT 

/BOUND/ 

/FLMCOL/ 

/FRIC/ 

/PRPS/ 

/SPECL/ 

/TCO/ 

/TRNSNT 

NONE 

INPRT 

MAIN PROGRAM 

TARRAY 

NTARAYT 

/BOUND/ 

/FLMCOL/ 

/MATRX/ 

/PRPS/ 

/TCO/ 

/TRNSNT/ 

GASTBL 

HCFRCD 

HCPINS 

TCOEF 

TCOEF 

NTCOFTT 

/MATRX/ 

/PRPS/ 

/TCO/ 

/TRNSNT/ 

FLOWS 

FLSPLT 

GAUSS 

HCOOL 

PARRAY 

PLOTMF 

TARRAY 

THRCON 

WROUT 

MAIN PROGRAM 

THRCON 

WROUT 

NTHRCNT 

/BOUND/ 

/TCO/ 

NONE 

TCOEF 

NWROTTT 

/CHKHOL/ 

/FLMCOL/ 

/PRPS/ 

/RADL/ 

/TCO/ 

/TRNSNT/ 

/UNITS/ 

NONE 

TCOEF 
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TABLE II. - COMMON-BLOCK CROSS-REFERENCE TABLE 


Subroutine 

COMMON block 


BOUND 

CHKHOL 

FLMCOL 

FRIG 

GAAS 

IMPCOR 

MATRX 

PRPS 

RADL 

SPECL 

TCO 

TRNSNT 

UNITS 

BLOCK DATA 
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1 
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X 
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X 
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X 

i PREP 
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Figure 3. - Overall program procedure. 
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Figure 4 - Subroutine calling relations. 




Figure 5. - Flow chart of main program. 
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Figure 7. - Continued. 
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Figure 7. - Concluded. 



(a) Detail of station numbering at end of 
impingement insert. 


Station JS 



Sucti 

side 

(JS) 


(b) Detail of flow-split point 
Figure 8, - Details of flow-split parameters. 
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